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MODIFIED BY: 


v03-006 61000% Grog Awdziewicz 7-Aug-1984 
- Make the buffers for DCX reduced records larger so that 
records already near the maximum record size can still be 


“reduced’’ even if aoey actually y ate larger because of 
a ely disparate module 
objec 


s (eg a@ message pointer 
module to a Library of caren object modules). 
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LBR_GETPUT 16-Sep-1984 + 9 333]? VAX-11 Bliss-32 V4.0-7 Page 1 
14-Sep-1984 12: DISKSVMSMASTER: ClBR. sre GETPUT.B32;1 (1) 

: 1 001 MODULE LBR_GETPUT ( ! GET and PUT routines for Librarian 
; ¢ Oe LANGUAGE (BLISS$32), 
3 00 TDENT = ‘v04-000' 
; 4 004 = 
; 5 005 1 BEGIN 
; 3 $07 
: 3 9444 : PITITILILILILILI LILI LLL LLL LiL liiiiiiiiii iii iii 
; '® 
5 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 11 0011 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
3 i borg ! - ALL RIGHTS RESERVED. * 
oO . * 
3 14 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copiee + 
5 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 16 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
me 0017 1 i* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
3 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 i $8 4 : * TRANSFERRED. * 
3 '@ * 
3 $) 0021 1 !* THE oe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 ; 00 ; 1 !'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; Si + z : pe CORPORATION. & 
o Jv .¢ *® 
3 $2 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 6 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 e7 0027 1 I! * 
; ae 0028 1 !* # 
3 $9 ot 94 1 See REAR REAR AA TREAT E EEE 
; 0 0030 1 
: 31 0031 1 !4¢ 
; 3 pos 1! 
; 3 0035 1 ! FACILITY: Library access procedures 
; 34 0034 1! 
; 35 0035 1 ! ABSTRACT: 
; 36 0036 1} 
; 37 0037 1! The VAX/VMS Librarian procedures implement a standard access method 
; $ si : to Libraries through a shared, common procedure set. 
; 40 0040 1 ! ENVIRONMENT: 
3s 641 0041 1! 
3 4g Bneg 1! VAX native, user mode. 
;- © 0045 1! 
3 4 0 44 1 n= 
; 65 45 1! : 
; 0046 1 ! AUTHOR: Benn Schreiber 
i) av 0047 1! 
: 6 0048 1 ! CREATION DATE: June, 1979 
; 0049 : 
: 1! 
: 1! 
: 1! 
3 1! 

1! 
: 1! 
: 1 
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LBR GE PUT 1b-se0-1986 01:55:17 WARoH Blise-32 v4.0-74g pe 


8 098 , | - Replace obj$c_maxrecsiz with Lbr$c_maxrecsiz. 
; 3 6 1 i - reg Awdziewicz 14-May-1984 
; ef Be i _ te th ortabie bead to history discriptor 
: 3 BR06 1/ corrected to be a word (not longword). 
; fg bogey i - Jim Teagu 20-Apr-1983 
; $3 Goes i i resto tt hed DCXSHR dynentesl ty when needed. 
: § sa - 4 Jim 11-Nov-1982 
; $3 ee : ae Cineed space slinsseel'? for DCX records. 
; 8 890 1 i - Jim T 28-0c t-1982 
: 8 a070 : —_— ie Bex record Nets oa ao static. 
ig $078 1 | - im Teague 16-Sep-1982 
; ti a078 : = lees LBRSHR vith "$2 interface. 
; § bore 1 i - RPGO118 Bob Grosso 02-Feb-1982 
; is bor? : seh Fix decr_refs deallocation bug. 
: 8 tee - RPGO117 Bob Grosso 25-Jan-1982 
; bo $080 i pected Complete random access by record rfa. 
: fl $082 i V02-116 RPGO116 Bob Grosso 15-Jan-1982 
. 0083 1: Random access by record rfa 
: Be 0084 1! Fix history record boundary “problem. 
: Bs $086 1 | - PG00115 Bob Grosso 17-Dec-1981 
; Ha B08? : — Enhance el history deletion. 
; 8 boss 1 i - 114 Bob Grosso 16-Nov-1981 
; 50 0090 : ~ Change St nat iy Ab to support locate mode. 
i 3 $092 1 | Bob Grosso 25-Aug-1981 
: 3 $09 i wee Add ty ig MEE A. and lbr$put_history. 
a $098 1 | - 052 Bob Grosso 30-Jul-1981 
; 36 $098 : — Correct che ooctin of control indexes. 
: 97 0097 1! Convert messages. 
: 8 bo98 1 i 4 Bob Grosso 18-Jun-1981 
: 100 8100 i pee Tage Replace eg re with Lbr$c_maxrecsiz 
; 101 O10} 1! Fix delete_data for multiple block spanning records. 
: 19 108 4 i - RPGO0043 Bob Grosso 12-Jun-1981 
: 198 8 } i aie! Comment history code. 
: 105 100 4 3 - 4 Bob Grosso 2-Jun-1981 
: 199 b109 i — Correct hasty ieee to avoid looping on RFA past EOF. 
: 108 O18 1 i - 41 Bob Grosso 88-May-1981 
: 190 199 i sada Refine roe es and lLbr$put_history. 
mt} ai 1 i - Bob Gro 22-Apr-1981 
: 118 118 : iia Add Lbrsp + a and [brSget. “Motery. 
: He O14 1! Remove tbr. Fkcache reference. 


a rb-sep-1964 01:53:17 VAN TT aliases vus0-74g a. Page 3 


v02-003 RPGO00006 Bob Grosso 5-Jan-1981 
Correct the BUILTIN declaration | 
v02-002 RPG34250 Bob Grosso 16-Dec-1980 


Correct the conversion of module insertion dates 
entered prior to Version 2 Librarian. 
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LBR_GETPUT 16-Sep-1984 01:53:17 VAX-11 Bliss-32 V4.0-74 Page 4. 
pe =600 Declarations ae 93: 37i15 NT EKSYMEHASTERSLY BR SRCTGETPUT.B32;1 . (2) | 


: 127 1 $ 1 SSBTTL ‘Declarations’; ‘ 
> 128 1 1 LIBRARY : 
: 129 1 8 1 *SYSSLIBRARY:STARLET.L32'; ! System data structures ; 
; 130 1 1 REQUIRE ‘ 
; 131 1 9 1 "PREF IX'; | : 
3 ¥ ¢ § 1 REQUIRE ‘ 
3 4 0 1 "LBRDEF'; : 
; 134 61 1 REQUIRE ° 
; ‘ 5 Bes : *OLDFMTDEF'; !Old format Library structure definitions | ‘ 
; 137 959 1 EXTERNAL ROUTINE | : 
3 3 960 1 Lor$load_dcx ! load dcexshr if not already loaded ° 
> 961 1 SYSSFAO ? ADDRESSING_MODE (GENERAL), !Formatted ascii output ‘ 
: 140 962 1 lLookup_cache : ee ' Lookup disk vbn in cache table ‘ 
3; 141 965 1 add_cache : JSB ! Add vbn to cache table ° 
; i$ 964 1 validate_ctl : JS8_1, ! Validate Library control index : 
; (14 965 1 qet mem : JSB_ ! Allocate dynamic memory ‘ 
> (144 boe 1 ealloc_mem J§B_2, ! Deallocate Cyngate memory ; ‘ 
3; 6145 967 1 find_key, ! Find key in index and return position ‘ 
; 146 0968 1 mark_dirty, ! Mark block dirty ‘ 
3; (147 0969 1 alloc_block : JSB_2, ! Allocate a disk block : 
: «(148 0970 1 dealloc_block : J$B_1, ! Deallocate a disk block ‘ 
: 149 0971 1 read_block : JSB_ i Read disk block ; 
: 150 o97e incr-rfa : JSB_2-NOVALUE, ! Update RFA 
3 13) 0975 1 find_block : J5B_3, ' Locate a block and cache it if not there already . 
; 138 0974 1 get_zmem : JSB_2; ! Allocate VM and zero it : 
3; 0975 1 ; 
> 154 0976 1 FORWARD ROUTINE | : 
s 135 0977 1 update_nextrfa : JSB_1, ! Update next RFA in Library header ‘ 
: 156 0978 1 incr_refcnt, ! Increment module reference count ‘ 
3 Tor 0979 1 decr_refcnt, ! Decrement module reference count ‘ 
; 158 0980 1 set_module, ! Read and optionally update module header | : 
3; 159 0981 1 map_blk_to_mem, ! Find/allocate block and map into memory : 
; 160 0982 1 deléte_ data, ! Delete data : 
3; 6161 09835 1 write_record, ! Write record to library . 
3 196 0984 1 read_old_record : JSB_2, ! Read record from old format Library : 
; 16 0985 1 read record ate ! Read record from Library : 
3 164 0986 1 add_Tuhrecord, ! Store the LUH record : 
; 19? 34-44 : delete_luhrecord; ! Skip first luh record and return any freed blocks | ; 
; 167 0989 1 EXTERNAL ‘ 
; 168 0990 1 dcxshr_address, ¢ 
3; 169 0991 #1 dcx_compress_data, ° 
s 70 43 1 dcx_expand_data, ‘ 
: 171 993 1 mem$\_maxbTk, : 
; 176 0994 3 Lbr$gl_maxread, ! Max number blocks to read at once . 
, We 0995 1 lLor$gl_rmsstv, ! Return STV on errors here : 
: «(174 0996 1 lbr$gt_eotdesc : VECTOR (4,BYTE], ! End of text ASCIC record ; 
; 173 4.44 : lbr$gl_control: REF BBLOCK; ! Pointer to control block | : 
; (177 0999 1 EXTERNAL LITERAL | : 
; #178 1000 1 Lor$_emptyhist, : 
3 179 1001 1 Lbr$"hdrtrunc, ‘ 
; 180 1996 1 Lor$_illop : 
; vel 10 1 lor$~intrnlerr, : 
: ine 1004 1 Lor$"invrfa, : 
; «+18 1005 1 Lor$_lkpnotdon, : 


seciatt Ui8h:D 


Declarations 14-Sep-1984 


$ 1 Lor 
lor 

lor 

lor 

lor 

lor 


X-11 Bliss-32 V4.0-74 p 5 
SkSVMSMASTERSCLBR. SRCIGETPUT .B32; 1°" (23 


ei 


g.nonistery. 
$"recing, 

Srectronc, 
$_rfapasteof, 
$_stillkeys; 


Replacing uses of obj$c_maxrecsiz with Lbr$c_maxrecsiz requires that 
they have the | value. Also, provide a larger value for 
encoded records since they may in fact grow when ene? are ‘'reduced"’ -- 
e.g., adding a message pointer object module to an object Library. 


' 

i 

i 

i 

i 

RIF Lbr$c_maxrecsiz NEQ obj$c_maxrecsiz ZTHEN | 

BF anon ("Tbr$c_maxrecsiz is not equivalent to obj$c_maxrecsiz') 
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LITERAL 
lbr_dcx$c_maxrecsiz= 2 * Lbr$c_maxrecsiz; ! Allow DCX maximum record size 
' to be Larger than normal. 


PSECT OWN = $CODES; ‘Own data is all shareable 


OWN 
("!Z2W-!AC-19!Z2W 00:00:00") 


fao_old2newdate : count P 
'ASCIC strings for months **MUST BE ONLY 3 BYTES LONG TO FIT IN A WO 


e 
an: countedstring ( 
eb : countedstring ( 

mar : countedstring ( 

apr : countedstring ( 
may : countedstring ( 
un : countedstring ( 
ul : countedstring ( 
aug : countedstring ( 
sep : countedstring ( 
oct : countedstring ( 
nov : countedstring ( 
dec : countedstring ( 
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IND 
months = jan : VECTOR C,LONG); ‘Months of year table 
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LBR_GETPUT 16-Sep-1984 01:53:17 VAX-11 Bliss-32 V4.0-74 P 6 | 
VOc=000 LBRSF IND 187368713 4 ° 3 740 DLSKSVMGMASTERSCLBA. SRCIGETPUT.B32; 1 viet (3) 
1 XSBTTL 'LBRSFIND’; | 
ok erat ROUTINE Lbr$find (contrel_index, txtrfa) = 


lee 
} FUNCTIONAL DESCRIPTION: 
This routine performs a lookup on a module given the RFA 


Mrrorororrorofror 


DONA VLS WN $0 OONOU SW (OC OODNOUE WN OODONOUSE 
OOWONAOUNE WN" OOONOWM 


PPPS EE 


a NA Nt ee 8 8 4 


i 
! 
3 Inputs: 
i control_index is the address of a ipoguers containing the 
; control index for th Li cor7 
: txtrfa is the address of a 6-byte buffer containing 
; the module RFA to find. 
; Outputs: 
The file is positioned to read the module's text 
low 
MAP 
txtrfa: REF BBLOCK; ! Pointer to RFA 
LOCAL 


descrip : BBLOCK Cdsc$c_s_bln]; 


IND 
length = Song? ty Cdsc$w_length] : WORD, 
addr = descrip [dsc$a_pointer] : REF BBLOCK; 


MOPIPINPOPIPONININPINONIPONo No NNN NNononononynofnonononononyd 
PAA EEE PEW 


6 perform (validate _ctl (..control_index)); ! Validate control table index 
BEGIN 
BIND 
header = .lbr$gl_control Clor$l_hdrptr] : BBLOCK, ! Pointer to header 
0 context = .lbr$gl_control Clor$T_ctxptr] : BBLOCK, ! Pointer to context block 

61 eomodrfa = context (ctx$b_eomodrfa] : BBLOCK, ! End of module RFA 
6¢ readrfa = context (Cctx$b_readrfa] : BBLOCK; ! Next RFA for read 
+e) IF .context Cctx$v_oldlib] ! If old format Library 
66 N 
267 CHSMOVE (rfa$c_length, .txtrfa, readrfa); |! Set RFA for reading 
268 eomodrfa (rfa$T_vbn] =_0; ! Disable end of module 
269 eomodrfa (rfa$w offset] = 0; _ ft until after header read 
270 erform (read_old_record (readrfa, descrip)); ! Read and skip header 


F .length NEG omf$c_size 
THEN RETURN Lbr$_invefa 


E 
BEGIN 
BIND 
modsizwords = addr Comh$l_modsiz] : VECTOR C,WORD]; 
CHSMOVE (rfa$c_length, efrtrfa. eomodr fa); 


incr_rfa (.modSizwords + ,modsizwords [0] * 
%X'10000", eomodr fa); 


~ 
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Bo Be Be Oe Be Be Se Se Oe Be Se Be Be Be Se Se Fe Se Ge Se Se BH Se Se Se Se Se Ge Ge Ge Ge Se Ge Se Se Se Ge Ge Se SF Se Se Se Ss Se Se SESH SH Se SH Se SESH ee Beas 


-TITLE LBR_GETPUT 
-IDENT \V0%-000\ 


~PSECT $CODE$,NOWRT,2 | 


] 
1besep-1984 01:53:17 VAX-11. Bliss-32.V 7 LBI 
-Sep- 3 H | 
LBRSF IND 1e=$sb-1984 12:37:40 DISKSVMSMASTERSCLBR. SRCIGETPUT.832;1° °° (35. v6 
1102 5 END | 
1198 4 END 
1104 3 ELSE 
1105 4 
1198 4 CHSMOVE (rfa$c_length, .txtrfa, readets}: 
1107 4 erform (read_record (readrfa, Senet ler: ! Read module header to skip i 
1108 4 F + Length h NEG mhd$c_mhdlen+.header [ hdgb. _mhdusz] ! If module header net correct length 
1109 4 OR Cmhd$l retened EQL 6 ! or ref count is 0 
1319 4 THEN. RETURN LorS_invefa; ! then RFA is bad 
13 : gontent Eetasy _lkpdon] = true; ! Indicate lookup_key done | 
1 . | 
1115 ; RETURN true; | 
1116 
1117 1 END; 


16 00000 FAO -OLD2NEWDATE: ne | 
30 20 57 SA 21 39 31 2D 43 41 21 2D 57 SA 21 00001 "ASCII \!Z2W=!AC-19!2W 00:00:00\ ; | 
30 30 3A 30 30 3A 30 00010 ; | 
00017 BLKB 1 
03 00018 JAN: BYTE 3 ; | 
4E 41 4A 00019 ASCII \JAN\ : 
03 bOoiC FEB BYTE 3 3 
42 45 46 0001D ASCII \FEB\ ; 
03 00020 MAR BYTE 3 ; 
52 41 4D 00021 ASCII \MAR\ : 
03 00034 APR BYTE 3 ; 
52 50 41 000 3 ASCII \APR\ : 
03 0002 MAY: “BYTE 3 ; 
59 41 4D 0099 “ASCII \MAY\ ; 
03 0002C JUN: “BYTE 3 ; 
4E 55 4A 0000 "ASCII = \JUN\ : 
03 00030 JUL: "BYTE 3 ; 
4C 55 4A 00031 “ASCII \JUL\ ; 
03 00034 AUG: "BYTE 3 : 
47 55 41 00035 "ASCII \AUG\ : 
03 0038 SEP: “BYTE 3 ; 
50 45 00039 “ASCII \SEP\ ; 
03 0003Cc ocT: "BYTE 3 ; 
54 43 4F 0003p “ASCII \OCT\ F 
03 00040 Nov: “BYTE 3 : 
56 4F af 00041 “ASCII \NOV\ ; 
0 00044 DEC: "BYTE 3 ; 
43 45 44 00045 "ASCII \DEC\ ; 
MONTHS= 


~EXTRN LBRSLOAD peck. SYSSFAO 
-EXTRN LOOKUP_CACHE, ADD_CACHE 
-EXTRN VALIDATE wale GET"MEM 


Deer Parr ete rie ae sg tg A Rea By re See | i 


LBR_GETPUT 1e-Se 1984 01:53:17 VAX=-11 Bliss-32 V4.0-74 Pa 8 
vOe=000 LBRSF IND 14-Sep-19 4 ? £37540 DISKSVMSMASTER: CLBR.SRCIJGETPUT.B32;1 vt (3) 


R 
“EXTRN INCR_RFA, FIND BLOCR 


Bete Se Se Ge ee Ge FH Se SHS Se Se GHGs Se Se Se Se ee Se FH Se Se Se Se Se Se Se Se ee Se ae 


OFFC 00000 ENTRY LBRSF IND, Save R2,R3,R4,R5,R6,R7,RB,RI,R10,-; 1046, 
SE 08 ¢2 00002 SUBL2 #8, SP : | 
50 04 BC DO 00005 MOVL § @CONTROL_INDEX, RO : 1076! 
00006 30 00009 BSBW VALIDATE CTL : | 
63 50 €9 0000C BLBC STATUS, 2$ : 
50 00006 CF DO 0000F MOVL §§ LBRSGL.CONTROL, RO + 1080 
37 OA AO D0 00014 MOVL  10(RO)7 -R7 | 
56 OE AO DO 00018 MOVL  14(RO). R6 : 1081) 
58 22 Ab SE O00IC MOVAB 34(R6), R8 > 1082 | 
3D 04 Ab 05 €1 00020 BBC #5, 4(R6), 1% ; 1085 
28 «Ab 08 BC 06 28 00025 MOVC3 #6. @TXTRFA, 40(R6) > 1088 | 
68 D4 00028 CLRL —_ (RB) > 1089 | 
04 AB B4 900¢p CLRW = &(RB) : 1990 
51 6E 9E 00030 MOVAB DESCRIP, > 1091 | 
50 28 AG YE 00033 MOVAB 40(R6), RO ; 
0000v 30 00037 BSBW READ _OLD RECORD ; 
5E 50 £9 O003A BLBC STATOS, 5$ ; 
iC 6— 81 0003D CMPW ENGTH, #28 : 1092 | 
4A 12 00040 BNEQ $ ; 
57 04 AE 02 C1 00042 ADDL3 #2, ADDR, R7 : 1097 | 
68 68 BC 06 28 00047 OVC3 #6, @TXTRFA, (RB) : 1099. 
50 02 A? 3C 0004C MOVZ2WL 2(R7), RO : 1100 
57 67 3¢ 90050 MOVZWL (R7), R7 : | 
57 57 10 78 0005 ASHL #16, R7, R7 ; | 
50 57 0 00057 ADDL2 R7, RO ; | 
51 58 po 00034 MOVL RB. R1 ; 
00006 0050 BSBW = INCR_RFA : 
2 11 00060 BRB 4 > 1092 
28 =A 08 BC 6 28 0006¢ 1$: MOVC3 #6, @TXTRFA, 40(R6) : 1106. 
51 6E 9E 0006 MOVAB DESCRIP, RI ; 1107 | 
50 28 AG 3 006B MOVAB 40(R6), RO : 
0000v 3 O06F BSBW READ RECORD : | 
26 50 9 00 : 2$: BLBC  STATOS, 5$ : 
0 3c. = A?—s«O9A 0007 MOVZBL 60(R7), RO > 1108 
50 10 ¢O 00079 ADDL2 #16, R ; 
50 6E 10 00 L 007¢ CMP7V #0, #16, LENGTH, RO : 
9 0081 BNEQ 3$ : 
50 04 AE D 90083 MOVL ADDR, RO > 1109 
04 Ad D5 00087 TSTL 4 (ROS : 


Ck Pi Sep 19 01:53:17 yaNeTT Ls 


8 12 0008A BNEQ 4$ 
50 000000006 SF 06 008 3$: cov ALBRS_INVRFA, RO 
046 Ab 02 a8 00094 4$: BISB2 #2, 4(R6) 
50 01 dO 00098 MOVL #1, RO 
04 0009B 5$: RET 


; Routine Size: 156 bytes, Routine Base: SCODE$ + 0048 


$-32_V 
TER: 


clea. OSRCIGETPUT. B32; he 


| 
| 


off tPut 19=300" 138% 91:33:17 VAX=11 Bliss-32 V4.0-74 Pa 1 
LBRSPUT_RECORD 14-Sep-1984 12:37:40 DISKSVMSMASTER:CLBR.SRCIGETPUT.B32;1 (4 

1 ZSBTTL  ‘LBRSPUT_RECORD'; 

se eRat ROUTINE LBr$Sput_record (control_index, bufdesc, txtrfa) = 


lee 
! 
i FUNCTIONAL DESCRIPTION: 


This routine writes the record passed to it out to the library. 


i CALLING SEQUENCE: 


status = lbr$put_record (control_index, bufdesc, txtrfa) 
i INPUT PARAMETERS: 
bufdesc is the a descriptor for the record 
to be outpu 


i QUTPUT PARAMETERS: 


' 

' 

' 

' 

' 

' 

' 

' 

' 

' 

: 

control _index is the index returned from lbr$ini_control 
J 

! 

' 

‘ 

' 

txtrfa is a pointer to a se ey array that 

0 

' 
' 
! 


is filled in with the RF the record 
(i.e. the module header if first PUT) 
P 
bufdesc : REF BBLOCK, ‘Pointer to string descriptor 
txtrfa : REF BBLOCK; ‘Pointer to array 
LOCAL 
reduce_rec 


ord, 
localrfa : BBLOCK Cdsc$c_s_blnj; 


ooo°oo 


WANA ANI AIA PPI PIP PPONUNODY «2 = 2 2 PO OS SS OO 
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“" 


perform (validate_ctl (..control_index)); 
BEGIN 


context = .lbr$gl_control Clbr$l_ctxptr] : BBLOCK, !Point to context block 
header = .lbr$gl_Control Clor$l_Adrptr] : BBLOCK, !and header 

nxtputrfa = context Cctx$b_nxtputrfa] : BBLOCK, '!RFA for next PUT 
hdrnxtrfa = header Clhd$b_nextrfa] : BBLOCK; !Name next RFA 


IF .context Cctx$v_oldlib] ‘Cannot write to old Library 
OR .context Ccfx$v_ronly] ' or read only Library 
THEN RETURN Lbr$_illop; 


IF .bufdesc Cdsc$w_length]) GTRU Lbr$c_maxrecsiz 'If record length illegal 


THEN RETURN Lbr$_réclng; ! then return with error 


reduce_record = .header(\hd$l_dcxmapvbn] NEQ 0; 


yee SS tat Le tl at oe 
PWN OOO fwnr 0 0OOn 


Create the module header record if this is the first put. 
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LBRSPUT_RECORD 14-Sep-1984 DISK KSVMGH TER: cen’ See GETPUT.B32;1 (4) 


; 5 1175 ; Fusnove (rfa$c Length. a ae, localrfa); . 
; 2$ 1178 IF WN Leagontext x$v_mhdout] ‘If module header needs to be written 
; ef ey : THEN BEG 
: 23 N75 2 mhdlen = .header Clhd$b_mhdusz] + mhd$c_mhdlen; !Length of module header 
3; 2e) 1181 4 LOCAL 
3 6¢ 1188 2 mhdrec : BBLOCK Clbr$c_maxhdrsiz]; !buffer for module header 
>; 364 1184 4 CHSFILL (0, st?" $5- peandrete, mhdrec); ‘Zero the module header 
: 365 1185 4 mhdrec (Cmhd = mhd$c_mhi 'Set ident 
; 36 1186 4 SGETTIM CT aR = ah rec Cmhd$l‘datim)); iget in r+ of insertion 
: 6 1187 4 header Fthdst_ updtim) = .mhdrec” Cmhd$i da tim]; ‘Set ny time into header 
; 368 1188 4 poster Lhd$l-updtim) + 4 = .<mhdrec tangs _datim] + 4); 
; 369 1189 4 SMOVE (rfa$c_length, hdrnxtrfa, localrfa); 
3 70 1190 4 cae oe (write_record on mhdrec, localrfa, false, .txtrfa)); 'write the header 
; 71 1191 4 context (Cctx$v_mhdout] = tr ‘No Longer need module header 
: 72 1138 4 header Clhd$l_modhdrs] = hooie? Cihd$l ph. + 1; !Count another module header 
s 375 1193 4 update. nextrfa (localrfa); ‘Update next RFA 
; 374 1194 
s 75 1195 
; 376 1196 IF .reduce_record 
3 S77 1197 THEN 
; 378 1198 4 BEGIN 
; 379 1199 4 BIND 
; 380 1200 4 compress_desc = context(ctx$l_dcxrecdsc]: BBLOCK[dsc$c_s_bln]; 
; 381 1201 4 if .dcxshr_address eql 0 
3; 382 1506 4 then : 
3; 3B 1203 4 “porters (Lbr$load_dcex()); : 
; 384 1204 4 compress_descl(dsc$w_léngth] = Lbr_dcx$c_maxrecsiz; 
; 385 1205 4 bufdesc(ldsc$b_class] = dsc$k_class ~$ : 
: 386 1206 4 bufdesc(dsc$b_dtype] = dsc$k_dtype . 
; 387 1207 4 perform ((.dcx_compress_data) ( pontextCctxSl _dcxctx], .bufdesc, compress_desc, compress_desc(dsc$w_ : 
; 388 P1208 4 perform (write-record (7 compress peecgeien length], .compress_desc(dsc$a_pointer], ‘ 
; «4389 1209 4 localrfa, false) : 
: 390 1210 4 END 3 
ae. 4. 1211 3 ; : 
3; 392 G iste 3 perform (write_record (. vit Ft F41 Paen length], .bufdesc{dsc$a_pointer], g 
: 393 121 3 ocalrfa, false)) ; 
3; 64394 1214 3 3 
; 395 1215 update_nextrfa (localrfa); ‘Update next RFA s 
; 3% 1216 CHSMOVE (rfa$c_length, localrfa, nxtputrfa); : 
; 397 1217 eating Cctx$v_hdr irty] = true: 'Flag header is dirty ; 
: $38 1¢i8 ; RETURN ss$_normal : 
$ 99 1219 END 3 
; 400 1220 1 END; ! Of Lbr$put_record : 
-EXTRN SYSSGETTIM : 
OFFC 00000 ~ ENTRY LORS PUT ane RECORD, Save R2,R3,R4,R5,R6,R7,R8,- ; 1119. : 
5E FF78 CE 9€ 00002 MOVAB TAL "Sp ; | ; 
04 BC 000/ MOVL @CONTROL INDEX, RO 3 1155_ 3 
00006 0008 BSBW VALIDATE-CTL 3 3 
01 50 €8 QOOOE BLBS STATUS, T$ : 3 


preqeerctesteienmeneeomeetimnatiniersonlomernaiemmedertnatonarte 


10 
| LBR_GETPUT 16-Sep-1984 VAX=11 Bliss- 32 Vv e 12 
vO0=000 LBRSPUT_RECORD 1er8ep= 188s 93:33:40 DASKSUNGMASTERSCVOR SRCSGETPUT.832; 19%" (a5 
04 on RET ; : 
50 00006 CF D 1% 1$: MOVL § LBRSGL CONTROL, RO + 1159 ; 
5 — AO D or MOVL  14(RO)7 RB : : 
36 A AO p 1B MOVL  10(RO). R6 + 1160 ; 
A 4 ag OO1F MOVAB 4(RB8), R1 + 1164 ; 
04 6A 0 : ; BES #5, (R10), 2% : 3 
A 0 TSTB (R10) + 1165 F 
8 18 00029 BGEQ 6. 3$ : ; 
50 000000006 8&F pO 08 2s: MOVL #LBRS_ILLOP, RO + 1166) ; 
57 08 ac DO 60 3$: MOVL BUF DESC + 1168 ; 
0800 &F ‘ Bi 50 CMPW Est 5048 : ; 
8 18 C BLEQU : | ; 
50 000000006 8F BO 00055 MOVE #LBRS_RECLNG, RO + 1169) ; 
50 D4 00046 4$: CLRL = RO + 1171) : 
o0sc 66 D3 00048 TSTL  140(R6) : ; 
02 13 0004C BEQL 5$ : | ; 
D6 0004 INCL RO : | ; 
58 50 00 00050 5$: MOVL. RO, REDUCE_RECORD : | ; 
F8 AD 3E AB 06 28 0005 MOVC3 #6, 62(R8)> LOCALRFA > 1175) ; 
48 6A 04 £0 00059 BBS #4. (R10), 6$ : 1176) ; 
59 3c 6=— AsO 0005 MOVZBL 60(R6) a + 1179) ; 
59 10 CO 00061 ADDL #16, R 3 $ 
0080 BF 00 6E 00 2c 00064 MOVCS #0, (SP), #0, #128, MHDREC ; 1184) ; 
01 AE AD 8F 90 0006C MOVB #-83, MHDREC+1 + 1185) 
08 AE 9F 00071 PUSHAB MHDREC* +8 > 1186. 
000000006 00 01 FB 00074 CALLS #1, SYSS$GE ; 
34 AG 08 AE 7D 00078 MOVG mest Oo tR6) > 1187) 
FB AD 4c A 06 28 00080 MOVC3 R6), LOCALRFA : 1189) 
Oc AC 0D 00086 PUSHL ; 1190) 
7E 04 00089 CLRL “ie : | 
F8 AD 9F 00088 PUSHAB LOCALRFA : 
OC AE 9F OO08E PUSHAB MHDREC : | 
59 DD 00091 PUSHL R9 : 
0000v CF 05 FB 00093 CALLS #5, WRITE_RECORD ; | 
71 50 E9 00098 BLBC STATUS, 10$ : 
6A 10 88 00098 BISB2 #16, (R10) : 1191 | 
74 Ab D6 0009E INCL  116(R6) : 1192 | 
50 F8 AD 3 000A1 MOVAB LOCALRFA RO : 1193 | 
0000v 30 000A5 BSBW UP DATE_NEXT ; 
38 5B £9 000A 68: BLBC REDUCE “RECORD. 8$ : 1196 | 
52 SA AB i 0008 MOVAB RB), R : 1200 
00006 CF D5 OOOAF TSTL  DEXSHR_ADDRESS > 1201. 
B 12 0008 BNEQ : | 
00006 0 FB 008 CALLS LBRSLOAD _DCX > 1203. 
GF 0 €9 OOOBA BLBC eraTH 10$ ~ : 
62 1000 &8F BO 000BD 7%: MOVW #096, at > 1204. 
02. =A 010€ ef BO 000C MOVW #27 > 1206. 
DD 0¢ PUSHL R : 1207 
52 DD OOOCA PUSHL R : 
5 pp O0CC PUSHL ; 
52 AB OF 00 cE PUSHAB 82(R8) ; | 
00006 oF 4 FB 000 CALLS as aQex COMPRESS. DATA : 
g 0 £9 00 D6 BLBC “ty : 
—E D4 000D CLRL = : 1209 
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LBR_GETPUT ese -1984 :17 VAX=-11 Bliss-32 V4.0-7 Page 13 
viet LBRSPUT_RECORD 14- ~3ep-1986 9; 37: :40  DISKSVMSMASTER:CLBR. src GETPUT.B32;1 * dl 
F8 AD OF O00DB PUSHAB LOCALRFA ; 
06 =A po O00 PUSHL  4(R2) : 
7E 62 3C OO0E MOVZWL (R2), =(SP) : 
B 11 000€4 BRB 9$ : 
E p4 Oe6 8$: CLRL = = (SP) + 1213 
F8 AD OF OE PUSHAB LOCALRFA ; 
06 =A po £B PUSHL  4(R7) : 
7E 7 x Oe MOVZWL (R7), =(SP) : 
0000v CF 4 Fe Fl 9$: CALLS #4 orite RECORD : 
i3 0 OF6 BLBC = STATUS 10 ; 
5 f8 AD OOF MOVAB COCALREA + 1215 
0000v OF BSBW UPDATE NEXTR : 
3 0A FB AD MOVC oe be LOCALAFA. A62(R8) : 1 1g 
oA 106 BISB2 #8. (R10 1317. 
0 1 D 1 MOVL #1, R : 1218 
04 0010C 108: RET : 4 


; Routine Size: 269 bytes, Routine Base: S$CODE$ + O0E4 
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LBRSPUT_END 


1 ZSBTTL  "LBRSPUT_END'; 


GLOBAL ROUTINE LBr$put_end (control_index) = 


++ 
! FUNCTIONAL DESCRIPTION: 
i This routine is called to finish putting text into the Library. 


CALLING SEQUENCE: 
status = lbr$put_end (control_index) 
INPUT PARAMETERS: 
control_index 
IMPLICIT OUTPUTS: 
An end of text record is written. 


is the control index returned from LbrS$ini_control 


LOCAL 
localrfa : BBLOCK Cdsc$c_s_bln]; 


geciere (validate_ctl (..control_index)); 'Validate control index 


context = 1 pordet contret Clor$l_ctxptr] : BBLOCK, !Get context block address 
header = .lbr$gl_Control Clor$l_fdrptr] : BBLOCK, 
nxtputrfa = context Cctx$b_nxtputrfa] : BBLOCK; 


IF .context Cctx$v_oldlib] 
OR .context Ccfx$v_ronly] 
THEN RETURN Lbr$_illop; 


'Get header address 


‘Error if old Library 


CHSMOVE (rfa$c_length, nxtputrfa, Localrfa); 

perform (write_record (.lbr$gt_eotdesc [0], lbr$gt_eotdesc [1], 
localrfa, False)); 

update_nextrfa {togatrten: 

nxtputrfa ; 

context 

context 


‘Update next RFA 
C(rfa$l_vbn) = 0; ‘Zero next put RFA 

ctx$v_mAdout) = false; 

ctx$v_hdrdirty] = true; 


END; 
RETURN ss$_normal 
END; 


‘Need module header next PUT 
'Flag header is dirty 


a aa a i a a a ak tk ek at ed = 2 = = = 2 = = = a = a 2 2 2 2 a 


POP IPIPININIPYNININYNININDNININININPININININININININININPYAINPYPINPINPINIPIPIPPPUPIPUIPIPIPOPINPININD 


DAP APPADADA DP GPAs £ BB BB BE ANI npnonononononony 
DNASE WN 0 ODNO UE WIN — O ODBNOAU EWN O ODNOUE WN OOONOUS wr 


' Of Lbr$put_end 


OFFC 00000 ENTRY LBRSPUT_END, Save R2,R3,R4,.R5,R6,R7,RB.R9,- 
5 08 c2 0000 SUBL2 #8, SP 
04 BC DO 0000 MOVL § a@CONTROL_INDEX, RO 


19-300" 1386 OF 33:12 VAX-11 Bliss-32 ett, P 
14-Sep-1984 12:37:40 DISKSVMSMASTER:CLBR.SRCIGETPUT.B32; 1 


< 
my 


4 LE 
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LBR_GETPUT 1b- Sep-19 753:17 VAX-11 Bliss-32 V4.0 Pa 15 LE 
VO0=000 LBRSPUT_END 1 matt 7 93:37:00 DISKSVMSMASTER:CLBR. sae GETPUT.B32;1 — (5). ve 


00906 30 9 BSBW =: VALIDATE_CTL : 
4A E ¢ BLBC _—« STATUS, : 
20 00906 CF OD F MOVL LBRSGL CONTROL , 20 + 1251 
& E Ap D 14 MOVL 4(RO)- R6 : 
05 06 Ab 0 f 0018 BBS #5, 4(R6), 1$ + 1255 
04 ag 4 TSTB = & (RO) + 1256. 
ge 3 0 BGEQ : 
50 000000006 b0 99 1$: MOVL #LBRS_ILLOP, RO : 1257. 
AE 3E AG 6 3 002A 2$: MOVC3 #6, 62(R6), LOCALRFA + 1259. 
E D4 0002F CLRL. = ( §P) : 1261. 
04 AE 3 00 1 PUSHAB LOCALRFA : 
0000G CF 9F 4 PUSHAB LBRSGT_EOTDESC+1 ; 
7E 00006 CF 9A 00038 MOVZBL LBRSGI“ EOTDESC, =(SP) : 
0000v CF 4 FB 003D CALLS #4 uRTTE ECORD : 
14 0 : O04¢ BLBC STAT Tus, 3$ : 
50 6c ’ 004 MOVAB SOCAL RFA, RO + 1262) 
0000v 30 00048 BSBW UPDATE PNEXTREA : | 
3E Ab ODS 00048 CLR 62(R6)~ + 1263. 
04 Ab 10 BA OO4E BICB2 #16, 4(R6) + 1264 
04 Ab 08 88 0005 BISB2 #8, 4(R6) + 1265 
50 01 DO 00056 MOVL 1, RO t 1267) 
04 00059 3$: : 1268 | g 
; Routine Size: 90 bytes, Routine Base: S$CODE$S + O1F1 


LBR_GETPUT 1b-Sep=1984 01:53:17 VAX=11_BLiss-32_v4.0-74 Page 16 
voe=000 LBRSGET_RECORD 14-Sep-1984 9b58Fic0 DL SKSUMSMASTER-CLOR. SRCIGETPUT.B32; 1 wae. 


; 451 1 $9 1 ZSBTTL  ‘LBRSGET RECORD: ‘ 
; 2 § ' 4 1 SL OgAt ROUTINE LBr$get_record (control_index, inbufdesc, outbufdesc, txtrfa) = : 
; 454 1 i : 
; 455 127 1+ : 
; 4 ° 1274 : 
; : 5 : f } FUNCTIONAL DESCRIPTION: ; 
; 459 1 s ! Read a record from the Library | : 
; 460 1278 : : 
: 461 1279 ¢ | INPUT PARAMETERS: | : 
; 46 1 Hi ; control_index Address of Lenquerd conte cntey valid control index : 
> 464 1 S : inbufdesc Address of string descriptor for user-supplied buffer : 
> 465 128 : outbufdesc (optional) Address of string descriptor for record if locate mode | : 
; 466 1284 : txtrfa (optional) Address of rfa. ; 
; 467 1285 : empty then return rfa of retrieved record | ‘ 
: ree : Hy If non-empty then retrieve record located by it. | : 
: 420 1288 gi IMPLICIT INPUTS: | : 
3 one 1391 An lbr$lookup_key or Lbr$find must have been done to position to the module ; 
: 474 1298 3 in | 3 
; 475 129 | : 
> 476 1294 P ; 
; 477 1295 inbufdesc : REF BBLOCK, | ‘ 
; 478 1 38 outbufdesc : REF BBLOCK; ‘ 
; 479 129 ; 
; 480 1298 LOCAL | : 
; 481 1299 status : : 
: 482 1300 use_call_rta, ! remember whether caller supplied an rfa : 
: 483 1301 descrip : BBLOCK Cdsc$c_s_binj; ; 
> 484 1306 | ; 
; 485 130 BIND , 
; 486 1304 context = .lbr$gl_controlClbr$l_ctxptrJ: BBLOCK, $ | : 
; 487 1305 call_rfa = .txtrfa : BBLOCK, ! caller supplied rfa, or slot to return rfa F 
; 488 1306 reclen = descrip ogecdy, length : WORD, 

; 489 1307 recaddr = descrip (dsc$a_pointer); 

; 490 1308 

3; (491 1309 BUILTIN a 

3 $36 1a9 NULLPARAME TER; ! True if parameter not specified 

3 $33 1318 perform (validate_ctl (..control_index)); 'Validate control index 

: 496 1314 4 use_call_rfa = (IF (NOT NULLPARAMETER (4) ) ! if caller has supplied a non-zero rfa then use it. 

; 497 1315 4 THEN (.call_rfa Crfa$l_vbn] NEQ 0) 

; 498 1316 ELSE false); 

; 499 1317 BEGIN 

; 3 1318 BIND 

; wa 1319 context = .lbr$gl_control ClbeSl_ctuperd : BBLOCK, !Name context block 

; ane 1320 lrab = .context ie recrab) : BBLOCK | 

: 50 1321 readrfa = context (ctx$Sb_readrfa) : BBL Ock | 

3 ape : § header = .lbr$gl_control Clor$l_hdrptrd : ABLOCK; | 

; Hi 1324 IF .use_call_rfa 

; 507 1325 THEN 


Kk 10 
L PUT 16-Sep-1984 VAX=11 Bliss-32_v4.0-74 Page 17. 
vit 660 LORSGET_RECORD Vereen See Pa eel, Pie dnthas tench sa sacScereur.ese;1° 2% as! 


BEGIN 

context ChxSy {-tkegend ® true 

readrfa call ria Crtast 

foserte rfasl: ~offset] = .call_rfa St ybnd "of tset); 
ELSES” 

BEG! 


IF (NOT .context fetxsy Lkpdon)) 
THEN RETURN Lbr$_l tkpnot don; 
IF NOT NULLPARAMETE 


THEN 
BEGIN ' return rfa of retrieve record 
call_rfa rfa$l _vbn] =_.readrfa (rfa$l_vbn 
catle rfa (rfa$Sw_offset) = .readrfa cr fasw. offset); 


END; 


status = (IF NOT .context Cctx$v_oldlib] 
THEN read_record ( réadrfa, descrip) 
ELSE read_old_record ( readrfa, dencrip) 3 


Hf _gheedert neat Aeumapvbnd NEQ 0 AND .status 
sia 
expand_desc = context(ctx$l_dcxrecdsc] : BBLOCK Cdsc$c_s_blnj; 
if .dcxshr_address eql 0 


then 
“pertora(\or$load. dcx )); 

expand_desc(dsc$w_ Leng th] = lLor$c_maxrecsiz; 

descripldsc$b_dtype] = dsc$k_dtype_ ti 

descripldsc$b_class] = dsc$k_ og ‘ass 

perform ( (.dtx_expand_data)~ CeontereLetx$t_ dcexctx], descrip, expand_desc, 
reclen 

recaddr = .expand_desc(dsc$a_pointer); 


IF 


Status 'If successful read 
aeae ube (* 


BEEBE EEE EAU NIIP PDINIPNININID 2 OO SS OO 


SIDS DDD DD DDD III BEEP PEED 


r$gl_control Clbr$v_locate] ‘Locate mode? 
BEGIN 
THEN NULLPARAMETER (3) ‘Want buffer length? 
BEG 
t= Fdscéu. Length] = .reclen; 'yes--update descriptor 
outbufdesc dsc$a_pointer] = .recaddr; 


END 
ELSE BEGIN 


CHSMOVE (MIN (, reclen, | s inbufdese Cdsc$w_length]), 
cagd r, .inbufdesc Cdsc$a _pointer)); 
IF ofeclon, lk .inbutdesc dsc$w_length] 
THEN = lbr$_rectrunc; 
IF NOT NULLPARAMET ER (3) ‘Want buffer Length? 
THEN BEGIN 
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'Otherwise, if end of module 
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3; Routine Size: 


vou=000 LBRSGET_RECORD 1$-}0-198 Pb:37i15 BERS UwBmASTERscleaCsRcScerpur.es2:1°°% «Bo 


3; Routine Size: 


=32 V4.0-74 


-1984 01:53:17 VAX-11 Blis . P 
13b4 et ee CMBR’ skCSGETPUT.632;1 - 


1 $ 
LBRSDELETE_DATA 1 DISKSVMSMASTER: 


95 1 XSBTTL plerepel ere DATA’; 
GLOBAL ROUTINE Lbr$delete. data (control_index, txtrfa) = 


INPUT PARAMETERS: 


control_index Address of valid control index 
txtrfa Pointer to RFA of text to delete 


IMPLICIT OUTPUTS: 
text is deleted 


ODOOCDCGDOCOCOCOOOOO 


NOUS WN O ODNOAU SW OVDONAOUE WN OOOO 


perform (validate ctl (..control_index)); 


BEG 
TSIND 
context = .lbr$gl_control Clbr$l_ctxptr] : BBLOCK; 


IF er Cctx$v_oldlib] 'Can't delete in old Library 
OR .context (ctx$v_ronly] ! or read only 
— RETURN Lor$_illop; 


— (delete_data (.txtrfa)); 
N true; 


Oe = —s — sb a bs as a => a td 2 ss od a 2 a 1 I 


1 
'+4 
i 
FUNCTIONAL DESCRIPTION: 
Delete a text module from the Library 
| 
i 
i 
i 
i 
i 
i 
ie 
; 
3 
3 
é 
at 
1E 


POMINONIPONONONY 2 


'OF Lbr$delete_data 


OFFC 00000 ENTRY LBRSDELETE. DATA, Save RZ,R3,R4,R5,R6,R7,R8,- 
50 04 BC DO 00002 MOVL ScOnTROL INDEX, RO 
00006 30 00006 BSBW  -VALIDAT 
29 50 £9 00009 BLBC —« STATUS, East 
50 00006 CF 00 000¢ MOVL teRSGt “cONTROL, RO 
50 O€ AO 00 00011 MOVL 4(RO); R 
05 04 AO 05 E0 0015 BBS as 0), 18 
04 AO 95 OOO1A TSTB  =—s-_- 4 (RO) 
08 18 0001D BGEQ 
50 000000006 18F DO OOO1F 1$ MOVL  #LBRS_ILLOP, RO 
04 000 $ RET 
08 AC DD 00027 28: PUSHL TXTRF 
0000v CF 01 FB OO2A CALLS #1, DELETE _DATA 
3 50 £9 0002F BLBC STATUS, 3$7 
0 01 »O 00 : MOVL = «#1, RO 
04 00035 3s: RET 


54 bytes, Routine Base: S$CODE$ + 037E 
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VAX meh Bliss-32 V4.0-7 
DISKSVMSMASTER: CLBR. SRC 


¢Scerput.e32:1° °° «3 


) 


vo 


R TPuT 16-Sep-1984 01:53:17 VAX-11 Bliss-32 V 3 
vite =8 delete data 1o=808- 1 3be }:33:]h DISKSVMSMASTER: Vea’ she GETPUT.B32;1 —_ Bs; 
14 3] 1 ZSBTTL ‘deleted 

SLOBAL ROUTINE os py data (txtrfa) = 
0 — 


Delete data starting with the given RFA 
ROUTINE decr_refs (startrfa, endrfa) = 
BEGIN 


i Local routine to decrement record count for a given vbn. If 
} record count goes to zero, deallocate the block. 
MAP 

startrfa : REF BBLOCK, 

endrfa : REF BBLOCK; 


LOCAL 
cpehentry : REF BBLOCK, 
blkadr : REF BBLOCK, 
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WRI OC OONAUE WN 0 COONAN WN OO OONOU EWN OC OONOU Sum 


4 

4 

4 

4 

4 

4 

4 

4 

4 

¢ link; 

5 persere tlooky., cache (.startrfa (rfa$l_vbn], cachentry)); 'Find the block 

5 lkadr = .cachentry Ccache$l_address); ‘Point to it 

5 blkadr Cdata$b_recs] = -blkadr Cdatasb. recs) - 1; iCount one less 

5 cachentr Ecachedy Seine = gree 'Mark block as dirty 
639 5 Link = .blkadr Cdafa$ 1k ' Save Link to next block 
640 5 IF -blkadr eaetase. recs] E io ' and if all gone 
3 : : THEN dealloc yirdy 4 startrfa (rfa$l_vbn]); ! then deallocate the block 
+7 2 3 an er erte Crfa$l_vbn] NEQ .endrfa Crfa$l_vbn]) ‘If record spans multiple blocks 
645 61 4 IF (. link NEQ .endrfa (rfa$l_vbn]) ! Spans more than two blocks 
646 62 3 THEN | 
647 63 4 BEGIN 
648 64 4 LOCAL 
649 65 4 start_rfa : BBLOCK cr fate length); 
650 66 4 etart ote” Crfa$l_vbn] = .Lin 
651 67 4 decr_refs (start_rfa, ie 8 | 
652 68 4 ND 
655 69 3 ELSE ! Spans two blocks 
654 70 3 if .endrfa cr tome, offset] NEQ data$c _data : and does not end at end of previous block 
655 7 ; THEN decr_refs (.éendrfa, .endrfa); ! then decrement ref count in ending block 
656 7 RETURN true; 
657 75° 2 END; 'Of dec_recs 


Saye R2 R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 1435 | 
CACH ENTRY. R1 1451 | 
QSTARTRFA. RO 
LOOKUP_CACHE 


11 
LBR_GETPUT 1-Se 1984 01:53:17 VAX=11 Bliss=-32 V4.0-7 e 24 
ibe=6b0 delete_data 12-808-1 3b Pe ee DISKSVMSMASTER:CLBR. sre GETPUT.832;1 Pes rH 

47 50 €9 0000F BLBC STATUS ; | 
20 6F D 1 MOVL EACHENER RO t 1452. 
1 08 A p 1 MOVL (RO), BLKADR : | 
61 001 DECB. = (BLKADR) + 1453. 
0c Ag 1 88 00018 BISB2 #i, 12¢ > 1454. 
5 02. Al p O1F MOVL  2(BLKADR), LINK + 1455) 
61 TSTB (BLKADR) : 1456) 
07 if : BNEQ ss : 
50 04 BC p MOVL  @STARTRFA, RO : 1457) 
00006 30 00028 BSBW DEALLOC BLOCK : 
“ 08 AC DO 0002E 1$: MOVL  ENDRFA, “R ; 1459) 
‘ 04 BC Db} 09 (MPL a PARTRE A. (R2) : 
if 1 BEQL 4 : 
62 53 01 000 CMPL INK, (R2) + 1461) 
08 13 00038 BEQL a : 
04 AE 53 00 0003D MOVL LINK, START_RFA 3 1466 | 
52 DD 00041 USHL  R2 ; 1467 | 
08 AE 9F 00043 PUSHAB START_RFA : | 
OA 11 00046 BRB $ : | 
06 04 A2 Bi 00048 28: CMPW 3s &(R2), #6 : 1470, 
08 13 0004C BEQL 4$ : 
52 DD 0004E PUSHL R2 + 1471) 
52 DD 00050 PUSHL R2 ; 
AA AF 02 FB 00052 3s: CALLS #2, DECR_REFS F 
50 01 pO 00056 4$: MOVL #1. RO + 1472) 
04 00059 5$: RET ; 1473) 


; Routine Size: 90 bytes, Routine Base: S$CODE$S + 0384 
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; 658 1474 2 
; 659 1475 2! : 
; 660 1476 ! Main body of delete_data 
; 661 1477 ' 
; 66 1478 MAP 
3 66 1479 txtrfa : REF BBLOCK; 
; 664 1480 2 LOCAL | 
: 665 1481 read status 

> 666 1482 locatrfa : BBLOCK Eetaéez Length, | 
3; 667 148 recrfa : BBLOCK (rfa$c_length], 
; 668 1484 § cachentry : REF 
; 669 1485 descrip : BBLOCK aecse _s_bln]; 
; 670 1486 

; 671 1487 BIND 

; (67 1488 header = .lbr$gl_control Clor$l meres BBLOCK, 

; 67 1489 hdrnxtrfa = headér Cihd$b_nextrfa) : BO, 0c 

> 674 1490 context = .lbr$ gl control ~Clbr$l etx tr] : BBLOCK, 

; 675 1491 length = descrip Tdsc$w_length) = 

3 676 1038 addr = descrip [dsc$a_pointer] : ‘REF BBLOCK; 

; 678 1494 IF .context Cctx$v_oldlib) ‘Can't delete text 

; 4 162? THEN RETURN Lbr$_illop; ' from old Library 

; 6681 1499 CHSMOVE (rfa$c_length, .txtrfa, hocalr fads 

: 68 1498 CHSMOVE (rfa$c_length, .txtrfa, recrfa) 

3; 68 1499 erform (read record (localrfa. descrip)); ‘read module header : 

: 684 1500 F .addr Cmhd$b_id] NEQ mhd$c_mhdid ‘check that it really is 


SESS SRS Gane Sa pe ome ena 


F 11 
LBR_GETPUT 16-Sep-1 1: VAX=11 Bliss-32 V4.0-7 e 25 LB 
ibe=680 delete_data 1a-8ep -19 3b 9}: 37:15 :40 DISKSVMSMASTER: CLBR. sre GETPUT.B832;1 eee (33 vg 
; 685 1 8) THEN R Lo A lor$ grout ts ‘and return error if no 
: 6 1 o¢ IF -addr mhd$l_refent NEO 0 iThere should be no orkee keys 
; 68 1 THEN RETURN’ Lbr$_stillkeys; ' still pointing at the data 
: ons : 04 decr refs leeoatae localrfa); iDecrement record counts 
: 690 1306 i Read the text until end, deleteing empty blocks 
: 69 1508 CHSMOVE (rfa$c length, localrfa, recrfa); 'Save RFA of first data record 
: $37 120 LS read. status = read_record (Localrfa, descrip)) NEQ rms$ eof 
; 695 1511 IF NOT ,read_status THEN RETURN .read_status; ‘Avoid looping on read error 
; 696 1216 decr_refs (recrfa, localrfa); ‘Decrement record counts 
; 697 151 ENSAOVE (rfa$c_length, localrfa, recrfa); !Copy RFA of next record 
; 699 1515 
3 oe 1218 decr_refs (recrfa, localrfa); 'Discount end of file record too 
: 70 1518 header Clhd$l_modhdrs] = .header Clhd$l_modhdrs] - 1; 'One Less module header 
: 70 1519 F .header CLAd$t _modhdrsj EQL 0 'If that was the Last one, 
3 704 1520 THEN BEGIN 
; 705 135! hdrnxtrfa (rfa$l_vbn] =_.header Clhd$l_hipreal]) + 1;!Reset next VBN 
; re 1356 3 peronerre rfaSw_ “of fset] = 0; ‘And offset 
: 708 1524 2 context asntete chdrdirty] = true; 'flag header is dirt 
: 709 1525 2 RETURN ’ . ‘ : 
: 710 1526 1 END; ! Of delete_data 


OFFC 00000 ENTRY Roem Save R2,R3,R4,R5,R6,R7,R8,R9.- 3 1429 
SE 18 C2 0000 SUBL2 #24 F 
50 00006 CF D0 0000 MOVL (aréce _CONTROL, RO + 1488 | 
56 0A AO 7D OOOOA mOvG 10(RO)7 R6 : 
59 4C A6 YE 0000 MOVAB 76(R6) Ro : 1489 
04 A? 05 £1 0001 BBC 4(R7), + 1494 
50 000000006 &F bd 60017 MOVL TRS, Lop. S20 > 1495 | 
046 BC 06 8 SooTs 1$: MOVC3 #6, @TXTRFA, LOCALRFA : 1497 | 
04 BC 06 0025 MOVC3 #6, @TXTRFA. RECRFA : 1498 
51 6E 9E 00028 MOVAB DESCRIP, R1 > 1499 
50 0 : 3 99 MOVAB PBCALRFA RO : 
0000v BSBW READ RECORD : | 
6p 50 £9 000 BLBC STATOS, 6$ : | 
0 04 AE DO 0038 MOVL ADDR : 1500 | 
AD BF 01 Aad 91 0003C CMPB trROS 8 #173 : 
8 13 00041 BEQL | 
50 000000006 &F v6 s00ch HOVL #LBRS_INVRFA, RO : 1501. 
04 Ad Dd S028 2s: TSTL = (RO) > 1502 | 
08 13 0004 BEQL : 
50 000000006 &F oe 909 MOVL WLBRS_STILLKEYS, RO ; 1503 | 
10 AE OF Mie 3$: PUSHAB LOCALRFA > 1504. 
OC AE 9F 00058 PUSHAB RECRFA : | 


reo OC -LCUh OOO ree ee eee SO —_—___ — A — —— —_— 
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LBR_GETPUT 16-Sep-1984 01:53:17 VAX-11 Bliss-32 V 7 
1602000 write_record 10-30 8=138e 93:33:15 Disk KSVMSMASTER: clea sre GETPUT.B32; * ™ 8 


1 ZSBTTL ‘write_record'; 


OFFC 00000 NEXT_BLOCK: 


; i 1527 $ 
\3 rg 1 8 1 SL ee ROUTINE write_ record (bytcnt, addr, writerfa, rewrite, retrfa) = ; 
AE BG ge : 
: £18 1531 ' cre rout the does the actual output to the Library ; 
Poy eaten apo hea! 
: 719 13 4 ' bytcnt = Number of bytes in record | ’ 
s eo 1535 : addr = Address of record ; 
s 721 1 § ' writerfa = RFA to store record in file $ 
mm. ; 1 : rewrite = true if rewriting previous record : 
eR: 1538 : retrfa (optional) = Address to receieve RFA of record ; 
: ¢ : 24 (the requested RFA may be noditie d) ; 
3 52 1541 ROUTINE next_block (lastblkadr, rfa, rewrite, newblkadr) = ; 
: Te? 154 BEGIN 3 
; 728 154 ! : 
3 fe 1544 ! Local routine to map the next block into memory and ; 
; 7350 1545 ' han dle the Links. : 
; 731 1546 ‘ F 
3 rae 1547 MAP . $ 
; 7 1548 Lestbtkadr REF BBLOCK ‘ 
3; 734 1549 : REF . 3 
3 739 1550 noubihedr : REF BBLOCK; 3 
: 736 1551 F 
> 1326 LOCAL | : 
; 738 155 newblock : REF BBLOCK, 3 
; 739 1554 cachentry : REF BBLOCK; 3 
; 740 1555 : 
: «741 1556 IF .rewrite 'If rewriting the record | ; 
; 74 1557 4 THEN BEGIN 3 
; 7% 1558 4 rfa (rfa$l_vbn) =_.lastblkadr Cdata$l_Link];!Link to next block | : 
: yee 1328 4 rfa rfasw_ “offset) = data$c_data; | : 
3; 746 1561 update_ hextrte (.rfa); Update next RFA : 
3 1 6¢ perform (map_blk_to_mem (.rfa, .rewrite, PETA. ‘Bring block into memory : 
; 156 tac entry)); : 
3 1564 poveiecs = ..newblkadr; 'Get memory address : 
; 1565 F NOT .rewrite 'If writing (not rewriting) : 
3 1566 THEN newblock Cdata$b_recs] = ' then this is first record in block | : 
3 1567 update_nextrfa (.rfa); iupdate next RFA (map_blk_to_mem 3 
; 1568 ! may modify + if needed) 3 
3 1569 sychentry Ccache$v_dirty] = true; :Mar block as dirty 3 
: 1570 IF NOT .rewrite ‘Unless rewriting the bloc 3 
3 1571 THEN lastotkade Cdata$l_link] = .cachentry Ceachest _vbn];!Then set the (tok in last block : 
3 1 4 A aa N true : 
; 1573 2€E 'Of next_block : 
WOR Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 1541 3 

5E Pt: ce O008 SUBL2 8 : : 

of o¢ 000 BLBC REWR : 1556 F 

0 4 AC D 00009 MOV PRS TLKADR® RO : 1658 ; 


bie nape’ pen an aan eos | [ 


LBR_GETPUT 16-Sep-1984 VAX=11 $-32_V Page 28 LE 
y6e=600 write_record 1 Sep-19 93: 37:15 DISK$V men TER: lak” she GETPUT.B32;1 . te ve 
61 02 Ad D 00 MOVL 2(RO), (R1) ; $ 

06 «Al 06 8 1 MOVW #6 (Ri) : 1559 : 

50 08 At p 15 18 MOVL pee 3: 1561, : 

009 v 1 BSBW UPDATE NEXTRFA : ; 

E bp 8 1¢ PUSHL 3; 1563) : 

7E 45 AC 7D 1 MOVa REWRITE, =(SP) : | 3 

0 AC DD 00 PUSHL 4 : 3 

0000v CF 9° Fe 8 CALLS + 8 K_TO_MEM 3 : 

¢9 0 £9 OO02A BLBC STATU : | ; 

° 10 BC DO 0002D MOVL aNEWELEADR NEWBLOCK r 1564 | ; 

0 oC AC f 0031 BLBS REWRITE, 2$ : 1565. ; 

34 01 38 3 MOVB #1, (N WBLOCK) $ 1366 | : 

08 AC B 2$: MOVL F 3; 156 : 

0000v 30 0003C BSBW UPDATE NEXTRFA ; : 

51 6E 0 00035F MOVL CACHENTRY, R1 3; 1569) : 

oc Al 01 88 00042 B1SB2 » 12(R15 : | ; 

09 OC AC €E8 00046 BLBS REWRITE, 3$ : 1570 3 

50 04 AC DO OO04A MOVL LASTBL : 1571 | 3 

02 Ad 04 Al 00 00046 MOVL 4(R1) 6 : | : 

50 01 D0 00053 3s: mMovL = #1, RO : 1572! ; 

04 00056 4$: RET ; 1573) : 

; Routine Size: 87 bytes, Routine Base: S$ CODES + 0484 | : 
; 759 1574 ! $ 
; 760 1575 ! Main body of write_record : 
: 761 1576 2 i | ; 
; £6 1577 , | : 
:; 6 1578 writerfa : REF BBLOCK; 'Pointer to RFA to write at $ 
: 764 1579 LOCAL ; 
; 765 1580 bytes, 3 
; 766 1581 bikadr : REF BBLOCK, !Pointer to disk biock in memory ; 
: 767 1386 movecount, F 
; 768 158 cachentry : REF BBLOCK, 3 
: 769 1584 bufptr; 3 
: 770 1585 : 
3; 771 1388 IND 3 
s i 158 blkvector = blkadr : REF VECTOR C,BY 3 
TR ie 1588 header = .lbr$gl_control Clor$l_hdr noted BBLOCK, ‘point to the header $ 
3: 774 1589 hdrnxtrfa = header Clhd$b _nextrfa] : BB OCK, 'name next RFA part | 3 
3 4h, 1329 context = .lbr$gl_control"Clbr$l_ctxptr) : BBLOCK; : 
: 777 1336 BUILTIN ’ 3 
3 ore 1ea7 NULLPARAMETER; ! True if parameter not specified : 
; 780 1595 bytes = obyscats a the » byte count 3 
; 781 15 bufptr = .add he data buffer : 
; fe 159 IF oye jteris Crtasl vbn) GTRU .hdrnxtrfa Poros “ybnd 'Check for iLlegat vbn request : 
; 78 1598 THEN RETURN Lbr$ _rtapasteot: 3 
3: «784 1599 perform nis blk_to_mem (.writerfa, orewr ite pikadr. cachentry)); 'Map block 3 
; «6785 1600 ppeneetry cecheSv dirty] = true; ark block as ty 3 
; 786 1601 unlsen feuriting the record : 
3; 787 1686 THEN blog ee asp recs) = .blkadr (datas recs] + 1; ! then count another record in block : 
> 788 160 update_nextrfa (.writerta); ‘Update next “ir | : 
3; «4789 1604 3 
: 790 1605 DO BEGIN : 


write_record 


OFFC 00000 
58 0000v CF 9%E 0000 
ef 08 C2 0000 
5 0000G CF 00 O000A 
51 OA AQ 0000004C 8F C1 it 
56 04 AC 00 00018 
5A 08 Ac »? O55 
57 oC of D 
61 67 01 4 
gs 8 0027 
50 000000006 8F »? 6 3 
5E pp 1 1$: 
08 AE 99F 00035 


11 
PuT 18-Sep-1 
1a-Sep- 


+ writerfa Crfa$w_offsetJJ); ‘an 


1986 92:37:40 


VAX=11 Bliss-32 V 
DISK SVMSMASTER: clea she GETPUT.B32;1 


to set the byte = 
ust went to new p 
! then get next block in 


: WORD; !Name the spot where it goes 


tyes--bring in the block 


!Figure length of move 
move it in 


rfa$w_offset]); 


'yes--bring next page in 


‘However, if done with record 
! and not rewriting record 
! then really no records in there yet 


: 733 1808 3 tes EQL byt If this is first time in h 

3 es cnt this is first time in her 
; 79 1808 4 ew Ores , ‘then we nee t te. 
: 794 1609 4 IF rertterte (rfa$w offset Ear 0 

; 795 1610 4 THEN pe erform (next ‘ost (.blkadr, ewriterfa, .rewrite, bikadrds: 
; £96 1611 4 IF NOT NULLPARAMETER (5) ' If retrfa specified, 

; 79 1el¢ 4 THEN ' then return to caller 

; 798 1615 4 CHSMOVE (rfa$c_length, .writerfa, .retrfa); 

; 799 1614 BEGIN 

; 800 1615 BIND 

: 801 1918 bytecount = blkvector # writerfa C(rfa$w_offset]] 

; 80 161 bytecount = .bytcnt; 'Set the byfe count 

: 80 1618 & Kos 

; 804 1619 4 incr_rfa (2, .writerfa); ‘Bump the RFA 

; 805 1620 4 update. wo oy (.writerta); \update next RFA 

; 806 1621 4 -writerfa Crfa$w offset E 'gone to new block? 

3 tf 19 ; 4 a perform (next_Block ( Cotkade, wuriterfa, rewrite, blkadr)); 
; ese c 

; 809 1624 movecount = MINU (. bytes, data$c cones = weriterie. 

: 810 1625 CHSMOVE (.movecount, .bufptr, blkvector 

; «6811 1626 incr_rfa ¢ emovecount, .writerfa); ‘increment RF 

: alg 1627 update_ nextrfa (.writerfa); iUpdate next RFA 

s BT 1628 bufptr = .bufptr + -movecount ; ‘update the pointer 

; 814 1629 tes = .bytes - .movec ‘and bytes to go 

3 HF 1930 i oY ‘writerta Urtabu. Stisetl: EQL 0 'going to new page? 

s 817 Pp 1o36 4 perform (next_block (.blkadr, 

; 818 1635 4 .writerfa, .rewrite, blkadr)); 

3; 819 1634 4 IF 8 tes EQL 

; 820 1635 4 AND NOT .rewr 

3 Bel 1636 4 THEN blkadr asteen. recs] = 

3 Ss¢ 1637 © os D; 

s 8e 1638 END ‘End of repeat loop 

3 ese 1972 ; UNTIL .bytes EQL 0; ‘End of repeat loop 

; 826 1641 RETURN true 

; 827 1642 1 END ‘Of write_record 


.ENTRY WRITE RECORD, Save R2,R3,R4,R5,R6,R7,R8,R9,- 
MOV UPDATE_NEXTRFA, R11 
SUBL2  # 

MOVL LBRSGL CONTROL RO 
ADDL3 O(RO), RI 

MOVL ByTENT "Bytes" 

MOVL BUFP 

MOVL URITERFA, Phe 

CMPL 

BLEQU 

MOVL #LBRS_RFAPASTEOF, RO 
PUSHL SP 

PUSHAB BLKADR 


race 3 


] 


K 11 
LBR_GETPUT 16-Sep-1984 01:53:17 VAKX=11 Bliss-32 V4.0-74 P 0) 
1607000 write_record 13-808=138e 93:33:15 DISKSVMSMASTER: CLBR.SRCJGETPUT.B32;1 a (3 | 
59 10 ac b0 . MOVL REWRITE, R9 : 
0288 fF BB A PUSHR #*M<R7,R9> : 
0000v CF 4 FB ‘ CALLS #4 MAP_BLK.TO_MEM : 
GFF 00 SOvE stitus 6 RO ‘1600. 
oc Ag oi bB 048 Bisb2 Hts 1 3(ROS ; | 
0 9 f 0040 LBS ‘ + 1601 
04 8g 6 6 9 INCB CKADR : 1608 
50 D 2$: MOVL : 160 | 
68 16 00 6 J38 UPHATE_NEXTRFA : 
046 ac 26 pt 8 3$: CPL YTES, BYTCNT : 1607 
04 A? ag E TSTW = 4(R7) t 1609 
12 12 00 1 BNEQ 4$ : 
04 AE 9F 00063 PUSHAB BLKA + 1610 
0280 8F BB 00066 PUSHR #°M<R7,R9> : 
10 AE DD OOU6A BLKA ; 
FF37 cf 04 FB 0006D #4, NEXT_BLOCK ; 
D 0 £9 00 é STATUS, 6$ ; 
05 6c 91 00 (AP), #5 + 1611 
OA 1F 00078 5$ ; 
14 AC DS OO07A 20( AP) : 
05 13 0007D 5$ ; 
146 BC 67 06 <8 0007F #6, (R7), @RETRFA + 1613 
50 04 A? 3C 00084 4(R7), + 1616 
50 04 AE CO 00088 BLKVECTOR, RO ; 
60 04 AC BO 0008C BYTCNT, (R + 1617 
51 57 DO 00090 R7, R1 + 1619 
50 02 DO 00093 #2. RO ; 
00006 30 00096 INCR_RFA : 
50 57 00 00099 R7, R : 1620 
6B 16 0009C UPDATE _NEXTRFA : 
04 A? BS 0009E 4(R7) + 1621 
12 12 00 ; 
04 AE 9F 00 BLKADR + 1622 
0280 8F BB 00 #°M<R7,R9> : 
10 AE DD 00 BLKVECTOR : 
FEF? CF 04 FB 00 #4, NEXT BLOCK ; 
65 50 E9 0 STATUS, T1$ ; 
51 04 A? ¢ 00 4(R7), RI : 1624 | 
51 00000200 F 51 C3 00 Ri, #512, Ri ; 
50 56 D0 00 BYTES, RO ; 
51 50 01 00 RO, Ri ; 
03 it 0 F 
f 3) 8 o By: ABvecoun ; 
50 04 9 Re 00 4(R7), R + 1625 
50 04 A c6 0 BLKVECTOR, RO : 
60 6A 5 0 MOVECOUNT. (BUFPTR), (RO) F 
51 57 00 00 R7, R > 1626 
50 58 p60 6 MOVECOUNT, RO : 
00006 INCR_RFA ; 
50 ny R7, RO > 1627 | 
: 1 UPDATE_NEXTRFA ; 
C MOVECOONT, BUFPTR > 1628 
58 C2 00 MOVECOUNT, BYTES + 1609 
A? B5 00 4(R?) > 1630 


“Sep-19 VAXoI1 Bliss=32 | 
Lois Mb, ee thasteacciGa sacScerpur.e32;1°°% «3 


LBR_GETPUT 
y007000 write_record 


BLKADR 

PUSHR #*M<R7,R9> 

PUSHL BLKVECTOR 

CALLS ui NEXT BLOCK 

BLBC , 118 
STE: 


FEA6 


—-- 
on 


03 


04 CLRB @BLKADR 
BYTES 


nn 
nm 
OfLOouviWMovwm or ar— 


AWM OAOOLM MMA 


$ 
50 #1, RO 


OOOCOCOCOOCOOCOOOoooO 
COOCOCOCOCOCOOCOCOOCOoOooo 


oUuwW9 om-om"oOoWo— 
SOW SOrvwmnowog ru 


7 

B 

5 

3 95 

. BLBS R9, 9$ 
0 

i 

7 

& 


—— 
=o 
Ae 
zz 
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; Routine Size: 283 bytes, Routine Base: $CODE$ + 0508 


~™N 


M 
LBR_GETPUT 16-Sep-1984 01:53:17 VAKoIT BLige=32 age 32 
vO0=000 read_record o78op= 1982 93:37:40 DESKSUMGMASTERSCLOR SRCIGETPUT .B32; 1° o 9 (105 


; 829 1643 1 XSBITL 'read_record’; | : 
3 4 9 + a) 1 GLOBAL ROUTINE read_ record (readrfa, descrip) : JSB_2 = : 
: 8 : 1646 se? Sap : 
$ th 100) This routine does the actual input from the Library : 
: 835 1649 i Inputs: $ 
; 836 1650 ' 3 
; 837 1651 readrfa Address of RFA to read from a : 
3 tes 1636 7 descrip address of string descriptor to return record description : 
| Et Be o | banns | i 
; rh 1656 i record is read, descriptor returned in descrip . 
; Bea 1822 z readrfa is updat ted : 
: B45 1659 2 i- | : 
> 846 1660 5 3 
; 847 1661 MAP 3 
3; 848 1996 2 readrfa : REF BBLOCK, $ 
3 o¢8 1997 descrip : REF BBLOCK; : 
: 851 1665 2 LOCAL : 
: O26 1666 blkadr : REF BBLOCK, ‘Pointer to disk block in memory 3 
; 8 1667 § cachentry : REF BBLOCK, ‘Pointer to cache entry for block : 
: Bes 1869 ee | 
; 856 1670 5 butte: | 
: 857 1671 2 3 
; 858 1676 2 BIND a 
; 859 167 § blkvector = blkadr : REF VECTOR C,BYTE], | 3 
3 B60 iene context = Lbr$gl_control Clbr$l_ctxptr] : REF BBLOCK; : 
: B6¢ 1676 $ yyr tere (map_blk_to_mem (. reedr ie. true, blkadr, cachentry)); ; 

; 86 1677 2 IF .readrfa [rfaSw_ offset) EQL 0 j Starting new block? 

3 ace 1678 2 THEN readrfa (Tr fa$w_ tt teed = data$c_data; 'start at top of block 

: 866 1680 ‘ BEGIN | 

; 867 1681 3 BIND 

3; 868 1686 3 header = .lbr$gl_controlClbr$l_hdrptr]: BLOCK_C, BYTE), 

3 36 198? ; "eat = blkvéctor C.readrfa (rfa$w_offset] *: WORD; !Name bytecount 

: 871 1685 3 maxre ' Maximum record size. 

; B76 1686 ; Gece ie ik length] = SS tai i Return byte count to caller. 

3; 87 1687 eheader(Clhd$l dexmapvbn EQL 0 THEN i If not a DCX Library 

3 are 1988 ; maxrecsiz = [Tbr$c_maxrecsiz 5q'h9 ,noraet maxrecsize, 

: 876 1690 3 pesrecsts = lbr_dex$c_maxrecsiz; i use lar er value. 

3; 877 199) 3 IF 2 tecount GTRU graxretsiz iMake sure it's really a record | 

; 878 1 4 ; THEN RETURN lor$_in and return error if not 

; 144 1937 i ft. sPrsecquate. -readrta Ch offset] + 2 Leau datasc length !If record on one block 

: 881 1695 4 descrip CoscSa pointer] = blkvector C.readrfa (rfa$w -offsetd) + 2; 'return the address 

5 HY 1696 4 incr_rfa ( iti Cdsc$w senate + -readrfa); ‘increment RFA 

: rt F944 : iF earenerte rfa$w_offset] Eat 0 'If went to next block 

; 885 1699 § readrfa (rfa$l_vbn) = .blkadr Cdata$l_link]; !Link to next block 


N 11 
LBR_GETPUT 16-Sep-1984 217 VAX=-11 Bliss-32 V4. 3 
Ba1984 2537340 Page 15) 


v04=000 read_record 14-Sep-1984 DISKSVMSMASTER: lea she GETPUT.B32;1 

; 886 1700 5 readrfa (rfa$w_offset] = data$c_data; : 
; 887 1701 4 END; ‘ 
; 888 17 § 4 END : 
; 889 17 4! ‘ 
; 890 1704 4 ! Record is split across multiple blocks | . 
; 891 1705 4! ; 
; #89 1208 4 ELSE BEGIN : 
; 89 1707 4 incr_rfa (2, .readrfa) ‘skip the byte count ‘ 
3 332 1708 : IF Toaer te tr Crfa$w offset] EQL 0 ! and if went to new block | : 
; 896 1710 5 meet rfa$l_vbn] =_.blkadr Cdata$l_link); !Link to next block : 
; 897 715 readrfa (rfa$Sw_offset] = data$c_data;~ : 
: 898 ar 4 ; : 
; 899 1713 4 ; 
; 900 1714 4 IF _ .context Cctx$l_readbuf] EQL 0 ‘If no buf fer allocated ‘ 
: 901 1715 4 THEN perform (get_mem (.maxrecsiz, Ecexst. cetxd) readbuf1)) ‘ 
: 90 1716 4 descrip Cdsc$a_pointer] = .context (Cctx$l_readbuf ‘Return address to caller ‘ 
; 90 1717 4 butte = .context Cctx$l_readbuf); 'Tnit butter pointer : 
; 904 1718 4 extents = .bytecount; iSet up byte count : 
3; 905 1719 5 D ‘Read whole record into buffer : 
: 906 1720 5 to: (map blk_to_mem (.readrfa, true, blkadr, cachentry)); fag into memory . 
; 907 a) o movecount = MINU(.Bytcnt, datate “length - .readrfa [rfa$w_offset); ‘Compute length of move : 
; 908 \7S¢ 5 bufptr = CHSMOVE (.movecoun | : 
; 909 1723 5 blkvector C.readrfa eriagw offset], -bufptr); !Copy partial record : 
; 910 1724 5 bytcnt = bytent = .movecount; ‘Update H tes left to go : 
; 911 1725 5 incr_rfa (.movecount, .readrfa): iUpdate : 
3 alg 1726 5 IF .readrfa (rfa$w _offset] Eat 6 ‘If nob Bap to new page . 
3 9 1727 6 THEN BEGIN ; 
; «914 1728 6 readrfa Crfa$l_vbn] =_.blkadr Cdata$l_link]; !next block : 
: 915 444 6 readrfa C(rfa$w_offset] = data$c_data;” : 
> 916 1730 5 3 > 
3 917 1731 5 END 3 
; 918 1736 4 UNTIL .bytcnt EQL 0; : 
: 919 1733 3 END; : 
; 920 1734 2 END; : 
: 921 1735 § ! 3 
3 356 1736 i Check to see if this is the end of text record, and return : 
3 4 1737 § i rms$_eof if so. 3 
; 924 1738 | 3 
; 925 1739 § : 
3; 926 1740 IF .descrip Cdsc$w_length]) EQL .lbr$gt_eotdesc (0) 'If the length is correct 3 
; 927 1741 2 AND CHSEQL (. descrip dsc$w stengthd. sdescrip Cdsc$a pyar inter !' and its an eof record 3 
: 928 17hs gt_eotde Lor$gt_ eotdesc [ i 3 
: 9 174 THEN RETURN rms$_eof then it is end of file : 
; 930 1744 ELSE RETURN true” ied return good record : 
; 931 1745 1 END; ! Of read_record | : 
OFFC 8F BB 00000 READ_RECORD:: : 
~ PUSHR = #*M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 3 1644, 3 
5E 98 C2 00004 SUBL2 #8, SP 3 3 
57 1 00 00007 MOVL R1, R7 ; F 

SA 50 DO OOOOA MOVL RO, R10 3 

55 00006 CF OE C1 0000D ADDL3 #14, LBRSGL_CONTROL, R5 : 1674 


31 
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LBR_GETPUT 1-Se 1984 01:53:17 VAX=11 Bliss-32 V4.0-74 Page 35 
y0e=000 read_record 14-Sep-19 4 93:33:40 DISKSVMSMASTER ELBA. SRCIGETPUT.B32; 1 7 (10) | 
53 62 p0 OCD OVL (R2), BUFPTR 31717 : 
6 64 C 0000 MOVZ2WL (R4), BYTCNT > 1718 : 
E bd 0D3 10$:  PUSHL SP : 1720 : 
08 AE 9F 000D PUSHAB BLKADR : : 
gi DD 9008 PUSHL #1 : : 
A DD OOODA PUSHL READR : : 
0000v CF 04 FB 00DC CALLS #4 MAP_BLK .TO_MEM : : 
66 0 : 00E1 LBC © STATUS, ~15$ : : 
51 6 ¢ 00E4 MOVZWL (RB), 1 > 1721. : 
51 00000200 ef 51 C3 000E7 SUBL3. R11, #512, R1 : | ; 
0 56 DO OOODEF OVL  BYTCNT, R : : 
51 30 D1 OOFe CRPL = RO, RI : 
Q 1B OOOF BLEQU «11 : | : 
50 1 DO 000F7 MOVL 1, RO ; | : 
a8 50 DO OOOFA 11$:  MOVL RC, MOVECOUNT : ; 
59 04 AE b0 OOOFD MOVL BLKVECTOR, R9 ; 1723) : 
50 68 3C 00101 MOVZWL (RB), R : : 
63 6940 5B 28 00104 MOVC3  MOVECOUNT, (R9)CROJ, (BUFPTR) : | 3 
56 56 C2 00109 SUBL2 MOVECOUNT, BYTCNT > 1724. F 
51 5A DO 0010 MOVL READRFA, R1 > 1725) : 
50 5B DO 0010F MOVL § MOVECOUNT, RO : : 
00006 30 OO112 BSBW = INCR_RFA : | ; 
68 B85 0011 TSTW > 1726. F 
07 12 00117 BNEQ 12$ : F 
6A 02 A9 00 00119 MOVL  2(R9), (READRFA) > 1728) : 
68 06 BO 0011D MOVW #6, (RB) : 1729) ; 
56 05 00120 128:  TSTL  BYTCNT > 1732 F 
AF 12 00122 BNEQ 10 : : 
50 00006 CF 9A 00124 13$:  MOVZBL LBRSGT_EOTDESC, RO > 1740! ; 
67 50 B1 00129 CMPW = RO, (DESCRIP) : ; 
19 12 0012C BNEQ 14$ : ; 
50 0000G CF 9A O01et MOVZBL LBRSGT_EOTDESC, RO > 1742) F 
50 00 04 67 67 2D 001 CMPCS (DESCRIP), a4(DESCRIP), #0, RO, - : ; 
00006 CF 00139 LBRSGT_EOTDESC+1 3 : 
09 12 0013C BNEQ 14$ ; ; 
50 0001827A 8F DO 0013E MOVL #98938, RO + 1744) ; 
03 11 00145 BRB 15$ ; : 
50 01 DO 00147 148 MOVL #1, RO : ’ 
5E 08 CO 0014A 15$ ADDL2 #8, SP > 1745 | ; 
OFFC 8F BA 00140 POP #*°M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> : | : 
05 00151 RSB ; : 
; Routine Size: 338 bytes, Routine Base: $CODE$S + 0626 : 


NN  CECECOOEEEEEEEEEEEOEOEOEOEOEOEeeEeEeeee ———EEE —_ : =e = miei c— 


D 12 
LBR_GETPUT 19-300" 1 28% 91:33:17 VAX-11 Bliss-32 ye sO ereg Page 36 
v04-000 read_old_record 14-Sep-1984 12:37:40 DISKSVMSMASTER: CLBR.SRCIGETPUT.B32;1 (11) 
; 933 4 1 ZSBTTL ‘read old_record’; 
> 934 1747 1 GLOBAL ROUTINE redd_old_record (readrfa, descrip) : JSB_2 = 
: 98 incg 5 See'N 
rE 5 1729 ; This routine does the actual input from the Library for old format Libraries 
RABE B | tems 
; 941 1754 readrfa Address of RFA to start reading from | 
; oe 172? } descrip Address of string descriptor to fill in 
foo cies joo 
> 946 1759 i Record is read, descrip filled in, readrfa updated 
: 947 1760 ‘ 
: 948 1761 laa 
: 380 1763 3 map 
: 951 1764 § readrfa : REF BBLOCK, 
; 226 1765 § descrip : REF BBLOCK; 
BE HES 8 soc 
: 955 1768 § blkadr : REF VECTOR C,BYTE), 'Pointer to disk block in memory 
; 956 1769 cachentry : REF BBLOCK, ‘Pointer to cache entry for block 
3s Vor 1770 § movecount, 
; 958 1771 bytcnt, 
; 959 1776 2 bufptr; 
; 960 1773 2 
: 961 1774 2 LITERAL 
; 96 1775 2 bsize = 2; 
BT ou 
: 965 1778 2 context = torial control Clbr$l cineers : BBLOCK, 
; 966 1779 2 eofrfa = context ECctx$b_eomodrfa] : BBLOCK; 
: $83 1781 3 
: oop 1786 § Check for end of module 
: 971 1784 2 IF .eofrfa [rfa$l_vbn) NEQ 0 
3 Ve 1785 2 AND .readrfa (rfa$l_vbn] EQL .eofrfa Crfa$l_vbn] 
: 973 1786 AND .readrfa ([rfa$w_offset) EQL .eofrfa ([rfa$w_offset] 
3; 974 1787 THEN BEGI 
3; 975 1788 eofrfa (rfa$l_vbn] = 0; 
; 97 1789 RETURN rms$_eof; 
: Oh 1 Re 
: 979 16 pectere (map_blk_to_mem (.readrfa, true, blkadr, cachentry)); 
2 ee ee 
> 982 1795 bytecount = blkadr C.readrfa Crfa$w_offset]] : WORD; ‘Name bytecount 
; «983 1796 descrip Cdsc$w_length] = .bytecount; ‘and return it to caller 
3 «6984 1797 IF .bytecount GTRU Lbr$c_maxrecsiz ‘Make sure it's really a record 
; 985 1798 THEN RETURN Lbr$_inyrfa; _  ! and return error if not 
3 4 1799 IF .bytecount+.readrfa trfa$w_offsetI+bsize LEQU data$c_length !If record on one block 
: 98 1800 4 ‘THEN BEGIN 
; «988 1801 4 descrip Cdsc$a_pointer] = blkadr C.readrfa (rfa$w_offsetlJ]+bsize; !return the address 
; 6989 1802 4 ince_rfa (.descrip Cdsc$w_length] +bsize, .readrfa); ‘increment RFA 


12 
LBR_GETPUT 18-Sep-19 4 9}: 35:17 VAX=11 Oi ieee -32 V Page 37 
VO04= read_old_record 14-Sep-19 :37:4 ISKSVMSMASTER: clea’ she GETPUT.B32;1 (11) 


; 990 1803 4 RETURN true ‘ 
; 991 1804 4 END ; 
3; 1805 4! : 
; 99 1 6 4 ! Record is split across multiple blocks ‘ 
; 994 1807 4! : 
; 995 1808 4 ELSE BEGIN : 
; 996 1809 4 IF “conker control Clor$b_func] es Lbr$c_read iif reading the Libra my ; 
; Wr 1810 4 AND “gon ext Cctx$l_rdbuff] NEQ ! and read buffer is allocated ‘ 
; 998 1811 5 THEN BEG : 
; .999 a >! : 
; 1000 18135 5 ! See if whole record is in the read buffer : 
: 1001 1319 ! - 
: 1006 1815 LOCAL ; 
; 100 1816 endrfa : BBLOCK (rfa$c_length]; ‘ 
3; 1004 1817 5 : 
; 1005 1818 5 CHSMOVE (rfa$c_length, .readrfa, endrfa); ; 
; 1006 1819 5 incr_rfa (.descrip Cdsc$y Messe + bsize, endrfa); Gompute ending rfa : 
3; 1007 1820 5 IF .endrfa C(rfa$l_vbn] L s3y ‘If whole record in buffer : 
; 1008 1821 5 -context etxsl rdvbni context Cetx$i_rdblksJ : 
; 1009 18s¢ 6 THEN BEGIN : 
; 1010 18235 6 descrip Cdsc$a_pointer] = blkadr C.readrfa (rfa$w offseti]+bsize; ‘Return address to caller | : 
: 1011 1824 6 incr_rfa (.descrip Cdsc$w length] + bsize, .readrfa); ‘Update rfa : 
; a 1825 6 RETURN true : 
3; 101 1826 5 END; ; 
: 1014 1827 4 END; : 
: 1015 1828 4 : ; 
; iis iSep 2 incr_rfa (bsize, .readrfa); !skip the byte count : 
3 4 1831 4 IF .context Cctx$l_readbuf] EQL 0 'If no buffer allocated : 
3 101 1836 4 THEN perform (get_mem (lbr$c_maxrecsiz, context (ctx$l -readbu : 
: 1020 18335 4 descrip Cdsc$a_pointer] = .context Cetx$l readbufJ; 'Return address to caller : 
: 1021 1834 4 bufptr = .context Cctx$l_ readbuf]; ‘Init buffer pointer : 
3: 1022 1835 4 bytcnt = .bytecount; iSet up byte count : 
: 1023 1836 5 DO BEGIN 'Read whole recere into buffer : 
3 1024 1837 5 perform (map blk_to_mem (.readrfa, true, blkadr, gocpeeeiyrsi me into memory | : 
: 1025 1838 5 movecount = MINU (.Bytcnt, data$c_length - .readrfa (rfa$w “offset ); itompute’ Length of move : 
: 1026 1839 5 bufptr = CHSMOVE (:movecount, blkadr nhs age Cr taSw offsetj], .bufptr);: 'Copy partial record | ; 
: 1027 1840 5§ bytcnt = sbyteat - .movecount; Update pyres lef® to go : 
; 1028 1841 5 incr_rfa (.movecount, .readrfa); iUpdate REA : 
3: 1029 1842 5 ND : 
; 1030 1843 4 UNTIL .bytcnt EQL 0; ‘ 
; 1031 1844 3 END; ° 
: 1036 1845 2 END; : 
3 103 1846 2 RETURN true ! return good record : 
: 1034 1847 1 END; ! Of read_record ‘ 


O3FC 8F BB 00000 READ_OLD RECORD: : 
PUSHR MCR? RS, »R4,R5,R6,R7,RB,R9> : 1747 


R8 
rBAsGt co CONTROL, RO 


“320-1984 01:55: 


F 
LBR_GETPUT 16- :17 VAX-11 Bliss-32 V4.0-74 Page 38 
v04=000 read_old_record 14- :40 DISKSVMSMASTER: CLBR.SRCJGETPUT.B32;1 ° (11). 
50 22 Ab SE 00016 MOVAB 34(R6), RO 3 1779 
60 D O01, TSTL (RO) + 1784 
17 13 0001C BEQL =Ssés1$ : 
60 68 Di OOO1E CMPL (READRFA), (RO) + 1785 
12 12 00027 BNEQ 1$ : 
04 Ad 04 A& B1 000 ; CMPW = 4 (READRFA), 4(RO) : 1786. 
0B 12 000 BNEQ 1$ : 
60 D4 000 A CLRL —- (RO) + 1788 
50 0001827A 8F DO 000 ¢ MOVL #98938, RO : 1789 
eA 11 000 BRB 2$ : 
E DD 00035 1$ PUSHL SP + 1792) 
08 AE 9F 00037 PUSHAB BLKADR : 
07 DD O003A PUSHL #1 : 
58 DD 005¢ PUSHL READRFA : 
0000v CF 04 FB 000 § CALLS 4 MAP_ELK_TO_MEM : 
19 50 59 0004 BLBC STATUS, : 
59 04 AB 3¢ 00046 MOVZWL 4 (READRY-A) , RO + 1795 
59 04 AE CO O004A ADDL2  BLKADR : 
67 69 60 O004E MOVW (R9), (DESCRIP) : 1796 | 
0800 &F 69 B81 00051 CMPW #2048 : 1797 
OA 1B 00056 BLEQU §§° : 
50 000000006 8F 00 00058 MOVL § #LBRS_INVRFA, RO ; 1798 | 
OOCA 31 0005F a8: BRW 10$ : 
50 69 3¢ 00062 $: MOVZWL (R9), RO + 1799 
51 04 A& 3C€ 0006 MOVZWL 4(READRFA), R1 : 
50 51 CO 00069 ADDL2 R11, R RO ; 
50 02 CO 0006C ADDL2 = #2. : 
00000200 BF 50 D1 0006F CMPL =e RO, W512 ; 
2E 1B 00076 BLEQU 4$ ; 
50 00006 CF DO 00078 MOVL BRSGL ~CONTROL , RO : 1809, 
01 03 AO 91 0007D CMPB (RO), ; 
36 12 00081 BNEQ 5$ : 
32. AB DS 00083 TSTL  50(R6) + 1810 
31 13 00086 BEQL 4 6-45$ : 
08 AE 68 06 28 00088 MOVC3 #6, (READRFA), ENDRFA : 1818 
51 08 AE 9E 0008D MOVAB  ENDRFA, : 1819 
50 67 3C 00091 MOVZWL (DESCRIP), RO : 
50 02 £6 00094 ADDL2. #2, RO : 
00006 30 00097 BSBW INCR RFA : 
50 “ 3A AB C1 OO09A ADDL3 58(RB), 54(R6), RO > 1821 
50 08 AE D1 000A0 CMPL ENDRFA, RO : 
13 «+1€ O00A4 BGEQU 5$ : 
04 Av 02 Ad YE 000A6 4$ OV 2(R9), 4(DESCRIP) > 1823 
50 67 3 OO0AB MOVZWL (DESCRIP), RO > 1824 | 
50 08 CO OOOAE ADDL2 #2, RO : 
51 . 00 00081 MOVL READRFA, R1 : 
00006 30 900B4 BSBW INCR_RFA ; 
£0 11 00087 BRB $ > 1825 
51 58 00 00089 5$: MOVL READREA, R1 > 1829 
50 02 20 00BC MOVL @ : 
00006 O08 BSBW  INCR_RFA : 
2E «Ab d3 0c TSTL  46(RB) + 1831 
OF 12 000¢ BNEG 6$ : 
51 26 A6 YE 000¢ MOVAB G(R ), RI > 1832 | 
50 0800 _&F ¢ C MOVZWL #2048, R ; 
0006 0 D BSBW «GET _MEM ; 
56 E9 000D BLBC STATUS, 10$ F 


Ear aH 1:8 


LBR_GETPUT 1 17 VAX=11 Bliss-32 V4.0-74 Page 39. 
v04= read_old_record 14-Sep-1984 40 DISKSVMSMASTER: CLBR.SRCIGETPUT.B32;1 ’ (11). 
04 aA? ZE AG DO 0006 68: MOVL  46(R6), 4(DESCRIP) : 1833) 
33 E ag p 0B MOVL 46(R6), BUFPTR + 1834 | 
6 C OO0DF MOVZWL (R9), BYTCNT : 1835 | 
E DD 000E2 7$ PUSHL SP + 1837. 
08 AF 9F OOOES PUSHAB BLKADR : 
g DD O00E7 PUSHL # : | 
8 DD O000E9 PUSHL READRFA : | 
0000v CF 04 FB OE CALLS #4, MAP_BLK_TO_MEM : 
9 0 § OOF LBC STATUS : 
1 06 AB ¢ OOF MOVZWL 4(READRFA), R1 + 1838 
51 00000200 8F 51 C3 O00F SUBL3.  R1, #512, R1 : 
0 37 D0 OFF MOVL  BYfCNT, RO : 
1 9 D1 102 CMPL 0, R1 ; 
Q iB 1 BLEQU 8$ : 
50 1 p00 00107 MOVL 1, RO : 
56 30 b0 O010A 8$: MOVL RO, MOVECOUNT ; 
50 04 AB 3C¢ 00100 MOVZWL 4(READRFA), RO : 1839 
50 04 AE CO 00111 ADDL2- BLKADR. RO bin 
63 60 56 28 00115 MOVC3 MOVECOUNT, (RO), (BUFPTR) : 
57 26 C2 00119 SUBL2 MOVECOUNT, BYTCNT 3 1840) 
51 58 00 0011C MOVL  READRFA, R1 ; 1841 | 
50 56 DO OO11F MOVL § MOVECOUNT, RO : 

00006 30 00122 BSBW  =INCR_RFA : 
57 D5 00125 TSTL ByTC T + 1843 

B9 12 00127 BNEQ $ ; 
50 01 DO 00129 93: MOVL #1, RO + 1846 
SE 10 CO OO12C 10$:  aADDL2 #16, SP ; 1847 | 
O3FC 8F BA OO12F POPR #*M<R2,R3,R4,R5,R6,R7,R8,R9> : | 
05 00133 RSB F 


; Routine Size: 308 bytes, Routine Base: SCODE$ + 0778 


LBR_GETPUT Je~senn 138s 93:33:17 VAX-11 Bliss-32 tatty, Page 40) 
v04= map_blk_to_mem 14-Sep-1984 12:37:40  DISKSVMSMASTER:CLBR.SRCJGETPUT.B32;1 (12) | 
1 XSBTTL_ ‘map_blk_to_mem'; | 

ROUT INE map_Blk_fo_mem (rfadr, reading, blkadr, cachentry) = | 


lee 


ofololo) 
Dew 


Find block in memory, given RFA | 
Inputs: 


rfadr Address of RFA to find 
reading true if reading/updateing, otherwise false 


Outputs: 


blkadr Address of block if found 
cachentry Address of cache entry for biock 


RFA requested may be modified if writing. 


rfadr : REF BBLOCK, 
cachentry : REF BBLOCK; 


BIND 
Lor$gl_control orth ctaptrs : BBLOCK, 
fadr (rfa$l_vbnJ, 
adr (rfa$w_offset] : WORD, 
br$gl_control Clbr$l_hdrptr] : BBLOCK, ; 
header Clhd$l_nextvbnj; ! Library end of file 


tes 
“a3 


LOCAL 
status, 
newvbn, 
cacheaddr : REF BBLOCK; 


] 
If just reading the file, use a block buffer instead. Allocate it now if needed 


IF .lbr$gl_control Clor$b_ func] EQL lbr$c_read ‘Reading the Library? 
'e#*AND .context Cctx$v_oldlib] ! and its old format 
THEN BEGIN 
IF .context Ccetx$l_rdbufr] EQL 0 'Need a buffer? 
THEN perform (get_mem (.lbr$gl_maxread * Loess pagesize, ! then allocate one 
context Cctx$l_rdbufrJy ; 
IF .diskvbn GEQU .context Cctx$l_rdvbn1] 'Is block in the buffer? 
a EE AT LSSU .context Cétx$l_rdvbni] + .context Cctx$l_rdblksJ 


WR OOOO WIN $ O ODNAUNE WN" O OONAUNE WN SO OONOUS WN oO 


eee ed ee ee ee ed ee a ee ee ee ee el a ce ee a ca ee ce ce ce ee ce ee ed ee ce ee a ea cc ee ee ee oe ed ee ed eed 
GoGG000 0000 NIN One 


SSSSSSSSSSSSeseS SOS SOS SSSR SRS E RES GUCSOT IGS SEREREERERE 


Be Be Be Be Se Se Oe Oe Be Se Ss Be Se Se BF Ge Be BF Se SESS Se Se Se SH SF Ge Ge BF Ss Se BH SH Se Se SHS SF Se BH Se Se HSH SH Ss SESH SESH Se SESS SH Sse Se ae 


PPP PEE EES FANNING PIDIPININDPINIIDNIINININPININNINNINNININIPIPPIPOPIPUNIPIPIPINPUPOPPUNIPYA = 
a 
— 
w 
Yr 
< 
=] 
“nu 


THE 
eblkadr = .context Cctx$l_rdbufr] + ‘Yes! return block address 
5 (.diskvbn = .Context Cctx$l_rdvbni]) * Lbr$c_pagesize; 

86 8 RETURN true; 
87 9 N | 
88 0 ELSE BEGIN 
89 901 BIND 
90 308 lrab = .context Cctx$l_recrab] : BBLOCK; !RAB for 1/0 | 
91 90 LOCAL 

92 904 status; 


8S 


1093 
1094 


SSSSS 


Ww WWWAAI AI AIA POPU POPUPININNODY 2 “osha > 
Bo INA th = DOD MO UNE UNNI OOO WOME ODO rr Sx233 


ee ee ee ee __ __ _._.. ee ee ee eee) 
ee ___. ee ee eee 


5 al tak ek at el el et el 
COnNOUSw—0O”O0 


12 
1h-56 -1984 01:53:17 VAX-11 Bliss-32 V 
map_blk_to_mem 132800- 138s 93:33:06 DISKSVMSMASTER: CL 
1905 4 
1398 Lrab Crab$l_bkt] = .diskvbn; 'Set starting block 
19 Lrab Lrab$l_ubf] = .context Cctx$l_rdbufrJ; ‘and buffer address 
lrab Lrab$w_usz] = .lbr$gl_maxread * Lbrse_ppges ize: 'Set buffer size 
IF (status = $READ (RAB = Trab)) 'Tf good read 
OR .status EQL rms$_eof ' or we read to eof 
THEN BEGIN 'Then things look good 
-blkadr = .context Cctx$l_rdbufrJ; !Return buffer address 
context potest oreo lke = .lrab Crab$worsz) / jbeSe Pages ia: 
context Cctx$lordvbni] = .diskvbn; !Set vbn into context block 
RETURN true; 
END 
ELSE BEGIN 
Lor$gl_rmsstv = .lrab Crab$l_stv]; !Return stv on error 
RETURN .status; 
END; 
END 
END 
ELSE BEGIN 


BEBE EE FAWN IWIWIWIAIIRININININININININ 2 2 OO OO OO 


bhuisbuiichuibubsiububabubbabebababaibubabababebabuababbabeiububabubabababababababubabah abababalaiabalbaDadal 
WOOO WDOODOVOVOWDOWVOOOWOO ODO OOOO OOODOOODODODODODOODODODOOOODOODOOODOODODOOOOOOOO 


PEMA MIVIVIVIVIM 


DPD PPD BS BS BAA BTS BS SITTIN AIAN BP UTUTUTUIIUTUTUIU E U & S* 


IF .diskvbn LSSU .next_vbn 
OR .context Cctx$v_oldTibJ 
THEN BEGIN 
IF (status = lookup_cache (.diskvbn, cacheaddr)) 
AND .cacheaddr [Ecache$v_data] 
AND (.reading OR (.offset NEQ 0)) 


THEN BEGIN 
-blkadr = .cacheaddr Ccache$l_address]; 
-cachentry = .cacheaddr; 
RETURN true; 


ND 
IF NOT .reading 
BEGIN 

Lloc_block (newvbn, .blkadr); 
ffseft = data$c_data; 

HSFILL (0, data$c_data, ..blkadr); 
iskvbn = .newvbn; 


ND 
ELSE BEGIN ; 
porrere (read_block (.diskvbn, .blkadr)); 


iskvbn GTRU .next_vbn 
N lor$_rfapasteof 
f 
T 


alloc_block (newvbn, .blkadr); 
offset = data$c_data; 

CHSFILL (0, data$c_data, ..blkadr); 
skvbn = .newvbn; 


GIN 
Loosue cache (.diskvbn, cacheaddr) 
N BEGIN 


-blkadr = .cacheaddr Ccache$l_address); 


=™“WZ—- 
m 


' Also td ded ¢ so cache disk blocks 
!Disk block already allocated? 

' or an old format Library (always!) 
'Yes=--Look in cache first 

' and if it is found 

! and it is a data block | 

! and we are reading or writing and 
! not just starting the block 


' then use it 


'Not found--if writing the record 
' then allocate a new block 
‘allocate a new block 

'Set offset 

‘Zero info at start of block 
‘FILL in block allocated 


‘Otherwise, read it from the disk 


'Not allocated--is this a bad call? 
‘yes, return error 


‘Just starting the new block? 
! and writing 


ycenees Locate it 

'Set correct offset 
‘Zero info in block 
‘update vbn gotten 


‘We've already touched the block 
'So find the cache entry 


'Get the data block address 


Pgs Pa 
BR.SRCJGETPUT.B32;1 


Be Se Oe Be Oe Be BH Se Se Se Se Se Se Se Se Se Se Se Fe Se ee Be Ge Se Se Se Ge Se Se Se Se ee Se Se Se Se Se Se Se Se Se Se Se Se Se Sete Se Se Ge Se ee Fe Se ee Sean 


12 
1b-Se -1984 01:53:17 VAX=11 Olisse 32 V 4 
map_blk_to_mem 12286871384 93533540 DLSKSVMEMASTERSCLBA. SRCIGETPUT. 932;1° 99°13 | 


; 0 1962 6 .cachentr -cacheaddr; 
; ; 1963 6 RETURN true; | 
3 5 1965 6 ELSE BEGIN ‘It's not in memory, read it in 
3 4 1208 g erform (read_block (.diskvbn, .blkadr)); lit wasn't so read it in 
; 5 196 ND; 
; $ 1968 4 END; 
3 1969 END; 
5 58 1970 perform. (add_cache (. diskvbn, cacheaddr)); ‘Insert into disk block cache 
; 1159 1971 -cachentry = .cache addr; 'Return cache entry address to caller 
; 1160 1376 cacheaddr Ccache$l “eddress) © .-blkadr; 
3; 1161 197 cacheaddr cache$v_data]) = true; 
3 6¢ 1974 RETURN true 
; 116 1975 END; 
3; 1164 1976 1 END; !Of map_blk_to_mem 
-EXTRN SYSS$READ | 
OFFC 00000 MAP_BLK_TO_MEM: 
. WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 3 1849 
5E 08 C2 0000 SUBL2 #8, SP : 
50 00006 CF D0 0000 MOVL § LBRS$GL_CONTROL, RO ; 1873) 
53 OE AO DO QO00A MOVL 14(RO), R3 3 
56 04 AC 00 sai MOVL RFADR, R6 3; 1874 
52 0A AO 00000052 8F C1 0001 ADDL3 #82 10<R0>, R2 > 1877 
01 03 Aad 91 00018 CMPB) =s-«3(RO), > 1887 
03 13 OOO1F BEQL 13 3 
0083 31 00021 BRw 3 
32 «AS D5 00024 1S: TSTL R3) 3: 1890 
11. 12 00027 BNEQ $3 ons 3 
51 32. AD 33 00029 MOVAB : 1892 
50 0000G CF 09 78 000 4 ASHL 44 Re ase _MAXREAD, RO 3 
00006 38 000 BSBW 3 
01 50 3 00036 BLBS CFATUS. 2s : 
4 Be8 9 RET 3 
360s AS 66 Di QOO3A 2$: CMPL (R6), 54(R3) 3: 1893 
if 1f OOO3E BLSS 3$ 3 
50 360A 3A =6AS~ —C1 :~00040 ADDL 58(R3), 54(R3), RO > 1894 
50 66 D1 00046 CMPL (R6), RO ; 
11 ig 0049 BGEQ 3$ ; 
50 66 360—s ADB 5 0048 SUBL 54(R3), Maal RO ; 1897 
50 50 09 78 BRP ASHL #9 RO. ; 
oc BC 32 B340 H 054 MOVAB a50(R scho2, @BLKADR ; 
41 11 QOOSA BRB 5$ : 1902 
5 Oc A3 00 0005C 3$: MOVL 12(R3), R2 ’ 
38 OA 66 D0 99060 MOVL  (R6), 56(R2) > 1906 
24 COA 32 =A b 0064 MOVL. 50(R3), 36(R2) > 1907 
20 A2 0000G CF 0200 8F A 4 MULW3 = #512, CBRSGL_MAXREAD, 32(R2) ; 1908 
52 DD 00072 PUSHL Re 3; 1909 
00000000G 00 9) 4] BRR CALLS #1, SYSSREAD 3 
09 0 €8 00078 BLBS STATUS, 4 : | 
0001827A F 73 2 443 crt STATUS. #98938 3 1910 | 
0c ¢ A3 087 4%: MOVL Sbcn ), @BLKADR > 1912 | 
3 3 A2 Be 00 C MOVZWL ttRD): RO ; 1913 | 
| 
| 
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yee=600 map_blk_to_nem 1-38 2e0n13Re P35 lg heh dwBAAS FER oc! aosheScerpur.es2s1 8 «133 
; Routine Size: 337 bytes, Routine Base: SCODE$ + O8AC 


M12 
66-Sep-1984 01:53:17 VAX-11 s-32 V4 45 
g-g08- 138? 03:33:15 DISK$V mt TER: cvaa’ sac GETPUT.B32;1 hen (13) 


— 


update_aextrfa 


XSBITL ‘update_nextrfa' 
'7'f B update_fextrfa (Fa) : JSB_1 = 


le¢ 
oe be the next RFA location (LHDSB_NEXTRFA) in Library header if 
nee 
Inputs: 
rfa Address of new rfa 
Outputs: 


nextrfa in header updated if new rfa is greater. 


header = - lbr$gl_ control Clor$l neretrs 3 BBLOCK, 
hdenxtrfa = header Clhd$b_nextrfa] : BBLOCK; 


IF “pte Crfa$l_vbn] GTRU_.hdrnxtrfa Crfa$l_vbn) 
R ((.rfa Erfa$l_vbn) EQL .hdenxtrfa CFfa$l_vbnJ) 
OND D (.rfa rfa$w_offsetJ GTRU .hdenxtrfa trlasy.. offset])) 
CHSMOVE (rfa$c_length, .rfa, hdrnxtrfa); 


RETURN true; 
END; 


SSOOOCOVOOOOOOOOOOOOOOOOOOOOOO 
DOOCCOCOCOCOCDOO0O0 0 OO OCWDWWDWMWOMOMMWo ~~ 


NAME WN HO OONAOUS WN $0 ODNOUS WN —ODDNO 
CONAUES WN O ODNOUES WN SO CONOULS Wh OWOOon 


1 

: MAP 
§ rfa : REF BBLOCK; 
é 

4 

3 

2 

2 

2 

é 

1 


POPINPIPINININININY 9 at ot at ot o_o ot 2 ot 


ooooo 


OOOO OOO OW W000 000909 0909 NI SIN INI NNO Oe 
oooo 


3C BB 00000 UPDATE_NEXTRFA: 
PUSHR #*M<R2,R3,R4,R5> : 1978 | 
51 00006 CF DO 90002 OVL LBRSGL CONTROL, R1 : 1998. 
51 OA A10000004C 8F (C1 0000 ADDL3 6, 10(R1), Rf + 1999 | 
61 60 D1 00010 CMPL (RFA), (R1) + 2001 
09 1A 00013 BGTRU 1$ F 
08 12 0015 BNEQ 2$ : 200 
04 Al 04 AO Bi 00017 CMPW ss @ (RFA), 4(R1) : 200 
04 18 0001C¢ BLEQU 2$ ; 
61 60 06 28 OOO1E 1$: MOVCS #6, (RFA), (R1) > 2005 
50 o1 DO 9002 2$: MOVL : : 2007 
C BA 000 POPR #*M<R2,R3,R4,R5> : 2008 
05 00027 RSB ; 


; Routine Size: 40 bytes, Routine Base: S$CODE$S + O9FD 


N 12 | 
LBR_GETPUT 16-Sep-1984 01:53:17 VAX-11 Bliss-32 ¥4.0-74 Page 46 
i6e=600 incr _refcnt 12280 8- 1 3Re at DLSKSVMEMASTERSCLBR. SRCIGETPUT.B32; 1 . (14) | 
009 1 XSBTTL ‘incr refcnt'; | 
eb beat ROUTINE incr _refcnt (txtrfa) = 


le¢ 
Increment the module reference count in the module header 


Inputs: 
txtrfa Address of rfa for module header 


i 

i 

i 

i 

Outputs: 
Reference count in module header is incremented. 
aa 


MAP 
txtrfa : REF BBLOCK; 


LOCAL | 
header : BBLOCK Clbr$c_maxhdrsiz], 
hdrdesc : BBLOCK Cdsc$c_s_bin], 


rlen, 
blockaddr : REF VECTOR C,BYTE), 
cachentry : REF BBLOCK 
localrfa : BBLOCK Crfa$c_length); 


CHSMOVE (rfa$c_length, .txtrfa, localrfa); 

per fore (map_bTk_to_mem (localrfa, true, blockaddr, cachentry)); 
F (.txtrfa [rfaSw_offset] + mhd$c_refing + 2) LEQU data$c_length 
wn 


ND 
Libhdr 

reclen 

refcnt 


| 
.lbr$gl_control Clbr$l_hdrptr] :_BBLOCK, ‘Library header | 
blockaddr C.txtrfa Crfa$w_offset]] : WORD, ‘Length of record 
blockaddr [.txtrfa (rfa$w_offset] + mhd$c_refilng - 2]; | 
i 
| 
i 


AIS WR O OONOUE WN $ O OONOUE WN" OODONOUES WhO 


IF .reclen NEQ mhd$c_mhdlen + .Libhdr Clhd$b_mhdusz] 

THEN RETURN Lbr$_invrfa; 
refcnt = .refcnt + 1; ‘ 
cachentry Ccache$v_dirty] = true; ‘Mark block dirty 


1 
: Module heacer is split across blocks 


ELSE BEGIN ; 
hdrdesc Cdsc$w_length] = Lbr$c_maxhdrsiz; 
hdrdesc ([dsc$a_pointer] = header; 
por ere (set_module (.txtrfa, hdrdesc, hdrlen)); 
eader (mhd$T_refcnt) = .header Cmhd$(_refcnt) + 1; 
CHSMOVE (rfa$c_length, .txtrfa, localrfa); 
por tere (write record (.hdrlen, header, localrfa, true)); 
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A true 


B 13 | 
LBR_GETPUT 16-Sep-1984 01:53:17 VAK=11 Bliss-32 V4.0-74 Pp 47. LB 
ibe =650 ince retent eae e= 4S be P3i8Fikh | BTecdnthas tension secicerpur.eses1 em c105 vo 


007¢ 00000 .ENTRY INCR_REFCNT, Save R2,R3,R4,R5,R6 : 2010) 
5E FF64 CE 3 9000¢ MOVAB <-156TSP), § : | 
56 04 AC 00 0000 MOVL.  TXTRFA, R6 : 2036) 
OC AE 66 06 28 00008 MOVC3 #6, (R6), LOCALRFA : 
5E DD 00010 PUSHL SP + 2037. 
08 AE 9F 0001 PUSHAB BLOCKADDR : | 
07 DD 0001 PUSHL # : 
18 AE 9F 0001 PUSHAB LOCALRFA : 
FE68 CF 0% FB OOO1A CALLS #4 MAP _GLK.TO_REM : 
F 0 E 0001F LBC STATUS, ~3$ : 
50 04 Ab 3C 00022 MOVZWL 4(R6), : 2038. 
50 OA CO 00026 ADDL2 #10, RO : 
00000200 =F 30 D1 00029 CMPL RO, #512 ; 
D 1A 00030 BGTRU 2$ ; 
50 00006 CF DO 0005¢ MOVL §LBRSGL_CONTROL, RO > 2041 
51 OA DO 0003 OVL  10(RO)7 R1 : 
52 04 A6 3C 00038 MOVZWL 4(R6), R + 2042) 
52 04 AE £0 0003F ADDL2  BLOCKADDR, R2 : 
50 04 Ab 3C 00043 MOVZWL 4(R6), R + 2043) 
50 04 AE CO 00047 ADDL2 BLOCKADDR, RO ; 
50 06 CO 00048 ADDL2 #6, RO F 
51 3c = ATs 9A «0004E MOVZBL 60(R1), R1 : 2045 | 
51 10 CO 00052 ADDL2 #16, Ri : | 
51 62 10 00 €D 00055 CMPZ7V #0, #16, (R2), RI : | 
08 13 0005A BEQL 1$ : | 
50 000000006 8F Dd 0005¢ MOVL § #LBRS_INVRFA, RO > 2046) 
04 00063 RET : 
60 06 90064 1$: INCL (RO) > 2047) 
50 6E DO 00066 MOVL CACHENTRY, RO + 2048 
0c Ad 01 88 00069 BISB2 #1, 12(ROS : 
35 11 0006D BRB : 2038 
14 AE 80 BF 9B O006F 28: MOVZBW #128, HDRDESC > 2054 
18 AE 1C AE 9E 00074 MOVAB HEADER, HDRDESC+4 : 2055 | 
08 AE 9F 00079 PUSHAB HDRLEN : 2056 | 
18 AE 9F 0007C PUSHAB HDRDESC ; 
56 DD 0007F PUSHL R6 : 
O000v CF 03 FB 00081 CALLS #3, SET_MODULE : 
1E 50 £9 00086 BLBC STATUS, ~5$ ; 
20 AE 06 00089 INCL. HEADER+4 > 2057 | 
OC AE 66 06 28 0008C MOVC3 #6, (R6), LOCALRFA > 2058 | 
01 DD 00091 PUSHL > 2059 | 
10 AE 9F 00093 PUSHAB LOCALRFA : 
24 AE 9F 0009 PUSHAB HEADER ; | 
14 AE DD 00099 PUSHL HDRLEN : 
FAGS CF 04 FB 0009 CALLS #4, WRITE_RECORD ; 
03 50 £9 OO0A1 3$: BLBC STATUS, 5$ : | 
50 01 DO 000A4 4$: MOVL #1, RO : 2062 
04 O00A7 5$: RET > 2063. 


3; Routine Size: 168 bytes, Routine Base: $CODE$ + OA25 


poo 


13 

LBR_GETPUT 1$-Sep-19 4 OF 33317 VAX-11 Bliss-32 ve ,0eiee Page 48 

v04=000 decr_refcnt 14-Sep-1984 12:37:40 DISKSVMSMASTER:CLBR.SRCIGETPUT.B32;1 (15). 

> 1255 064 1 XSBTTL ‘decr refcnt'; ; 
3 3 28 065 1 GLOBAL ROUTINE decr_refcnt (txtrfa) = : 
; 125 06 BEGIN . 
; 1258 06 ++ : 
: : 24 2068 ; Decrement the module reference count in the module header : 
; 1261 070 ! Inputs: : 
3% $6 2071 : ; 
; 126 $ors ; txtrfa Address of rfa of module header ; 
> 1264 207 : : 
3 1692 074 ! Outputs: ‘ 
; 1266 075 ; : 
; 1267 076 : reference count in module header is decremented. : 
; 1268 2077 : | : 
: 1269 2078 feo | ° 
: 1270 son ‘ 
; 1271 080 § MAP | : 
; is?¢ 2081 txtrfa : REF BBLOCK; ° 
3 127 508s é | ‘ 
: 1274 2083 2 LOCAL - ‘ 
3 1275 2084 2 header : BBLOCK Clbr$c_maxhdrsiz], | ‘ 
: 1276 2085 2 hdrdesc : BBLOCK Cdsc$c_s_binJ, ‘ 
; 1277 2086 2 hdrlen, : 
; 1278 2087 2 blockaddr : REF VECTOR C,BYTE], ° 
; 1279 2088 2 cachentry : REF BBLOCK ; 
3 1¢00 i434 2 localrfa : BBLOCK Crfa$c_length); : 
: 1282 2091 5 CHEMOVE (rfa$c_length, .txtrfa, localrfa); ; 
: 1283 2092 2 eo°sere (map bTk_to_mem (localrfa, true, blockaddr, cachentry)); ; 
; 1284 2093 ; F (.txtrfa [rfaSw_offset] + mhd$c_refilng + 2) LEQU data$c_length ‘ 
> 1285 2094 3 THEN BEGIN | : 
; 1286 2095 3 BIND ; ‘ 
: 1287 2096 3 Libhdr = .lbr$gl_control Clbr$l_hdrptr] : BBLOCK, ‘Library header : 
; 1288 2097 3 reclen = blockaddr (.txtrfa C(rfa$w_offsetJ] : WORD, =Longth of record : 
: iS soe ; refcnt = blockaddr C.txtrfa (rfa$w_offset] + mhd$c_reflng - 2); | ° 
° | oO 
3: 1291 2100 3 IF .reclen NEQ mhd$c_mhdlen + .Libhdr Clhd$b_mhdusz] : 
; 1638 2101 3 THEN RETURN Lbr$_invrfa; ‘ 
3; 129 $106 3 ‘ 
: 1294 2103 3 refcnt = .refcnt - 1; : 
3: 1295 2104 ; cachentry Ccache$v_dirty] = true; : 
3 1296 2105 END : 
: 1297 2106 3! : : ; 
3; 1298 34 44 ! Module header is split across blocks : 
3; 1299 108 : : 
; 1300 2109 3 ELSE BEGIN : 
3; 1301 2110 hdrdesc pgscfv.length3 = Lbr$c_maxhdrsiz; : 
3 1308 111 hdrdesc ([dsc$a_pointer] = header; ‘ 
; 130 116 per tora (set module (.txtrfa, hdrdesc, hdrlen)); : 
3 1304 11 eader (mhd$T_refcnt) = .header Cmhd$(_refcnt] - 1; ‘ 
3 1305 gii3 3 CHSMOVE (rfa$c_length, .txtrfa, localrfa); : 
3; 1306 11? erform (write_record (.hdrlen, header, localrfa, true)); : 
> 1307 116 ND; : 
; 1308 11 : 
; 1309 118 RETURN true : 
3 1310 119 1 END; ‘ 


2.33 | 
LBR_GETPUT 6-Sep-1984 01: VAX=11 Bliss-32_V 49 LB 
v04=000 decr_refent 10-88-1986 12: DISKSVMSMASTER: LOR. SRCIGETPUT .832; 1" (15), vo 


; Routine Size: 168 bytes, Routine Base: S$CODE$ + OACD 


007¢ 00000 .ENTRY DECR_REFCNT, Save R2,R3,R4,R5,R6 ; 2065 | : 

SE FF64 «CE 9 20009 HOVAB. = 1SetSP) «SP : | : 

56 04 AC D0 0000 MOVL TXTREA 6 ; 2091 | ; 

Oc AE 66 06 2 90008 MOVES #O. (RG). LOCALRFA : | : 
5E DD 0001 PUSHL_ SP > 2092 : 

08 AE OF 00012 PUSHAB BLOCKADDR : | : 

01 DD 0001 SHL #1 : | ; 

18 AE 9F 00017 PUSHAB LOCALRFA : : 

FOCO = CF 04 FB OOOIA CALLS #4, MAP_BLK_TO_MEM : | : 
7F 50 5 0001F LBC STATUS, ~3 : : 

50 04 Ab 3C 00022 MOVZWL 4(R6), R ; 2093 | : 

50 OA CO 00026 DDL2 #10, RO ; | : 
00000200 =F 30 D1 00029 PL RO, #512 : : 
3D 1A 00030 BGTRU 2$ : | ; 

50 00006 CF D0 00032 MOVL  LBRSGL_CONTROL, RO : 2096 | : 

51 OA DO 0003 OVL  10(RO)> R1 : ; 

52 06 Ab 3C 00038 MOVZWL 4(R6), R2 : 2097) ; 

52 04 AE CO 0003F DDL2 BLOCKADDR, R2 ; 3 

50 04 AG 3C 00043 MOVZWL 4(R6), RO ; 2098 : 

50 04 AE CO 00047 DDL2 BLOCKADDR, RO ; : 

50 06 CO 00048 ADDL2 #6, RO : : 

51 3C = Al. s«9A 0004E MOVZBL G0(RT), RI : 2100) ; 

51 10 CO 00052 ADDL2 #16, : | : 

51 62 10 00 ED 00055 CMPZV #0, ri, (R2), R1 : | ; 
08 13 O005A BEQL ~=s«1$ ; | : 

50 000000006 8F D0 9005¢ MOVL § #LBRS_INVRFA, RO : 2101) : 

04 0006 RET : | i 

60 D7 00064 1$ DECL (RO) > 2103 ; 

50 6E D0 00066 MOVL.  CACHENTRY, RO 3 2104 | ; 

0c Ad 01 88 00069 BISB2 #1, 12(ROS ; | ; 
35 11 0006D BRB 4$ ; 2093 ; 

14 AE 80 BF 98 O006F 2% MOVZBW #128, HDRDESC : 2110 ; 
18 AE 1C AE 9E 09074 MOV HEADER, HDRDESC+4 : 2111 : 
08 AE 9F 00079 PUSHAB HDRLEN : 2112 ; 

18 AE 9F O007C PUSHAB HDRDESC ; ; 

56 DD 0007F PUSHL R6 ; : 

0000v CF 03 FB 00081 CALLS #3, SET_MODULE : : 
1E 50 £9 00086 BLBC STATUS, ~5$ ; ; 

20. AE D7 00089 DECL_ HEADER+4 > 2113) ; 

Oc AE 66 06 28 0008C MOVC3 #6, (R6), LOCALRFA > 2114) ; 
1 DD 00091 PUSHL #1 > 2115 ; 

10 AE 9F 00093 PUSHAB LOCALRFA ; | ; 

24 AE 9F 0009 PUSHAB HEADER ; ; 

14 AE DD 90099 PUSHL HDRLEN ; : 

F99D «CF 04 FB 0009C CALLS #4, WRITE_RECORD : | : 
03 50 £9 S00A1 3$: BLBC = STATUS, 58 ; ; 

50 01 DO O00A4 4$: MOVL #1, RO > 2118 | ; 

04 OQO0A7 5$: RET 3 2119 | : 
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1: VAX-11 Bliss-32 V4.0-7 Page 50 


p-1984 0 33:)7 4 
LBRSINSERT_TIME p-1984 12:37:40 DISKSVMSMASTER: CLBR.SRCIGETPUT.B32;1 (16), 


179 1 ZSBTTL  ‘LBRSINSERT_TIME'; 
ts ROUTINE Lbr$insert_time (control_index, txtrfa, newtime) = 


_ 
wos 


newtime : REF VECTOR, 
txtrfa : REF BBLOCK; 


LOCAL 
header : BBLOCK Clbr$c_maxhdrsiz], 
hdrdesc : BBLOCK [dsc$c_s_binl, 


rlen, 
blockaddr : REF VECTOR C,BYTEJ, 
cachentry : REF ge 
localrfa : BBLOCK rfa$c_length); 


pettore (validate_ctl (..control_index)); 
HSMOVE (rfa$c_length, .txtrfa, Tocalrfa); 
ari (map_bUk_to_mem (localrfa, true, blockaddr, cachentry)); 
F (.txtrfa [rfa$w_offset] + mhd$c_instime + 10) LEQU data$c_length 
THEN BEGIN 
BIND 
Libhdr 
reclen 
daytime = 


'e+ ; 
Replace the module inserted date/time with the provided newtime : 
; Inputs: : 
; control_index Address of control index for Library ; 
: txtrfa Address of rfa for module header ‘ 
} newtime Address of quadword containing new time to set in header : 
Sates | : 
MAP | ; 


-lbr$gl_control Clbr$l_hdrptr] :_BBLOCK, ‘Library header 
blockaddr C.txtrfa Crfa$woffset]] : WORD, §§ !Length of record 
blockaddr C.txtrfa Crfa$w_offset] + mhd$c_instime + 2]; 


IF .reclen NEQ mhd$c_mhdlen + .Libhdr Clhd$b_mhdusz] 
THEN RETURN Lbr$_invrfa; 


CHSMOVE (8, .newtime, daytime); 'Set new time 
sochenery fcache$v_dirty = true; 'Mark block dirty 
ELSE BEGIN | 


hdrdesc pgscév_ length) = Lbr$c_maxhdrsiz; 

dsc$a_pointer] = header; 
erform (set_module (.txtrfa, hdrdesc, hdrlen)); : 
HSMOVE (8, .newtime, header Cmhd$l_datim]); !Set new time 
(rfa$c_length, .txtrfa, localrfa); 
erform (write_record (.hdrlen, header, localrfa, true)); 


POPIPIPINIPYNPDNINPINYININIPININYINYPINIPININPYPINININININININPIPONIPU NINN No PNT nononunofpoporupnonyfrorononyd 
ee a ek ed a ed a a dd 


SY be be | © al “al © al Sal ®al *al * al Pal @ al Pah al al ah al al ah ab ah Ah dl et et et et ot et ot et ot el”, 18 1 1 ee 


= PININIAWIWI NWA NAAN AANA AICI PIPPIN PUPONPIPONINPOPUNIPO PO PoP nononononoponofnonnn — 
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ETURN true 
ND; 


LBR_GETPUT 16-Sep-1984 01:53:17  -VAK-11 Bliss- 32 V 51 LE 
1be=600 LBRSINSERT_TIME 13-808 - 1 3b Te DISKSVMSMASTER: clBae OSRCSGETPUT. B32;1 Page 48) ve 


TIME, Save R2.R3.R4,R5,R6,R7,.R8,-: 2121. 


; Routine Size: 184 bytes, Routine Base: S$CODE$S + 0875 


OFFC 00000 ENTRY LBRSINSERT_ 
R9,R10,R11 : 
SE FF64 CE 9 90002 MOVAB -156(SP), SP : 
5 06 BC 4 0000 MOVL @CONTROL_INDEX, RO 3 2146) 
00006 30 00008 BSBW ALIDATE~CTL ; | 
18 50 £9 b80E BLBC STATUS, T$ : 
56 08 AC 060 0001 MOVL.  TXTRFA, R6 + 2147) 
OC AE be 06 28 00015 MOVC3 #6, (R6), LOCALRFA : 
E DD OOO1A PUSHL + 2148 | 
08 AE 9F 0001C PUSHAB BLOCKADDR : 
01 pp 0001" PUSHL : | 
18 AE 9F 00021 PUSHAB COCALR FA : 
FDOE CF 04 FB 00 4 CALLS #4, MAP_BLK.TO_MEM : 
67 50 E 0029 1$: BLBC  STATU : | 
50 04 Ab 3C 0002C MOVZWL 4(R 0, “RO” + 2149 
50 12 CO 00030 ADDL2. #18, : 
~esconsery' Plat 20 $A OORA Serku 48° #512 
50 00006 CF DO 0003C MOVL § LBRSGL_CONTROL, RO + 2152 
51 0A AO b0 00041 MOVL -10(RO)> ay : 
52 04 Ab 3C 00045 MOVZWL 4(R6), + 2153 
52 04 AE £0 00049 ADDL2 BLOCKADDR. R2 ; 
50 04 Ab 3C 0004D MOVZWL 4(R6), + 2154 
50 04 AE CO 00051 ADDL 2 BLOCKADER, RO ; 
50 OA CO 00055 ADDL2 #10, RO ; 
51 3c = A1—s« 9A:00058 MOVZBL 60(R1), R1 : 2156) 
51 10 ¢O 0005¢ ADDL2 #16, Ri : | 
51 62 10 00 ED 0005F CMPZV #0, Wo, (R2), R1 ; 
08 13 00064 BEQL 2$ : | 
50 000000006 8F v0 00066 MOVL #LBRS_INVRFA, RO : hl, 
60 0c BC 08 28 00066 2$: MOVC3 #8, aNEWT IME (RO) 3 2159) 
50 6E DO 0007 MOVL. CACHENTRY, RO : 2160 
0c AO 01 88 00076 BISB2 #1, DROS ; 
38 11 OOO7A BRB > 2149 
16 AE 80 BF 9B 0007C 33: MOVZBW #128, HDRDESC > 2163 
18 AE 1¢ AE 9E 00081 MOVAB HEADER, HDRDESC+4 + 2164 
08 AE 9F 00086 PUSHAB HEAL + 2165 
18 AE 9F 00089 PUSHAB HDRDESC ; 
56 DD 0008C PUSHL  R6 : 
0000v CF 03 FB O008E CALLS #3, SET_MODULE : 
21 50 £9 00093 4$: BLBC TATUS, ~6$ ; | 
24 «AE oc BC 08 ; 00096 MOVC3 #8, SNewr IME HEADER+8 t 2166 | 
OC AE 86 06 009¢ MOVC3 #6. (R6), LOCALRFA > 2167. 
1 DD O00A PUSHL : 2168 | 
10 AE 9F 0A PUSHAB LOCALRFA : | 
24 AE OF 0 OAb PUSHAB HEADER ; 
14 AE DD OOOA9 PUSHL HDRLEN : 
F8ES CF 4 FB QO0AC CALLS #4, WRITE_RECORD : | 
03 0 €9 000B1 BLBC STATUS, 6$ ; 
50 01 DO 00084 5$: MOVL #1, RO 3 2171 | 
04 00087 6$: RET 3: 2172 | 


eee 
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v04= LBRSSET_MODULE 1278 08- 1 3b 33 :40 WEEK SUMGHASTERS ELBA SRCTGETPUT.832:1 ° (17) | ve 
3 1 173 1 ZSBTTL ‘LBRSSET_MODULE'; 
3 1 174 1 GLOBAL ROUTINE LBr$set_module (control_index, txtrfa, 
: : 17? 1 eccin bufdesc, buflen, updatedesc) = 
: 1 177 2 44 
3 7 178 ! 
: : 1% FUNCTIONAL DESCRIPTION: 
: 1 181 i This routine reads and optionally updates the module header 
: ' 186 § associated with the given RFA. ge : | 
:1 18% i 
: } +4 CALLING SEQUENCE: 
: 1 at 2 ! status = lbr$set_module (control_index, txtrfal,bufdesc,buflen,updatedesc]) 
3 ! 
: : 5183 ; INPUT PARAMETERS: | 
:1 ate 2 | control_index Address of Library control index | 
3 3 $136 2: txtrfa Address of rfa for module header | 
3 1 2193 2! bufdesc Address of string descriptor for return 
: 1 2194 2! buf len Address to return Length of header 
: : $192 § } updatedesc Address of string descriptor to update module header user data | 
:1 2197 2 in 
3; 1 2198 2 
3 1 2199 2 BUILTIN 
; : $soe § NULLPARAMETER; ! True if parameter not specified 
3 : $508 2 perform (validate_ctl (..control_index)); !'Validate control index | 
i] $508 BEST END | 
; : $508 ; context = .lbr$gl_control Clbr$l_ctxptr] : BBLOCK; | 
:4 5508 3 IF NOT NULLPARAMETER (5) ‘If updating header | 
: 1 2209 4 AND (.context Cctx$v_oldlib] ‘ . 
31 2210 4 OR .context Ectx$v_ronly]) | 
; 140% gor] 3 eo: RETURN Lbr$_illop; 
: 1406 $513 5 : | 
: ys $4 4 $si¢ $ perform (set_module (.txtrfa, (IF NOT NULLPARAMETER (3) Mas .bufdesc 
; 1409 P 216 ; (IF NOT NULLPARAMETER (4) THEN .buflen 
3 seca P 2218 $ (IF NOT NULLPARAMETER (5) THEN, updatedesc 
: 1218 2220 2 RETURN true ‘ 
: 1414 2221 1 END; 

OFFC 00000 ~ENTRY Lenssar MODULE, Save R2,R3,R4,R5,R6,R7,R8,— ; 2174 | 

R9,R10,R11 : 


50 04 BC dO 00002 MOVL § @CONTROL_INDEX, RO > 2202 
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Sw 
FS 
oo 


set_module 


ZSBTTL ‘set_module'; 
SL OBAL ROUTINE set_module (txtrfa, bufdesc, buflen, updatedesc) = 
' 


LOCAL 
recdesc : BBLOCK Cdsc$c_s_blin], 
header : REF BBLOCK, 


. L CK, 
pecepes : BBLOCK e sc$c_s_bln], 
a: rfasc_Cength], 
Lor$c_maxhdrsiz], 


myheader : BBLOCK 
dsc$c_s_bln]; 


mydesc : BBLOCK 


BUILTIN 
NULLPARAME TER; 


BIND 
context = .lbr$gl_control Clbr$t_ctuperd : BBLOCK, !Context block 
reclen = recdesc Cdsc$u_length) : WORD, 
recaddr = recdesc Cdsc$a_pointer] : REF BBLOCK; 
IF NOT NULLPARAMETER (4) : 
THEN IF .context Cctx$v_oldlib] 
OR .context Cctx$v_ronly] 
THEN RETURN Lbr$_iTlop; 


CHSMOVE (rfa$Sc_length, .txtrfa, localrfa); 

header = .lbr$gl_control Clbr$(_hdrptrd; 

IF NOT NULLPARAMETER (2) 

THEN descptr = .bufdesc 

ELSE BEGI , 
mydesc (Cdsc$w_length] = Lbr$c_maxhdrsiz; 
mydesc C[dsc$a_pointer] = myheader; 
descptr = mydesc; 


| 
| 
'bufdesc passed by caller? | 
| 


CONAUE WN OO OONAU EWN SOD ONAUES WN (OOONOU SW OOD ONO 


ND; 
IF context Cctx$v_oldlib] 


PAA I SBS BS EE EEE EWN AIIRRININIPNINININN SS 


SENN NO AAA AAA AD TTI BB BB EE BE WWIII III innopononononory 
WN 9 OONOAUE WN OO ODNAUE WN $0 ODNAU EWN 0 OD NOAUE WN — OOWONAULE WP 


PIPIPIPIPIPOPINININONINYIPININPINININPINININININININININININININININININININGINVNININY 


e 1 
3; 3 
a 1 
3 3 
3} 
3 7 
oO 1 
3 } 
8 1 
3 7 
; 1 
© 1 
3% 
37 
3; 7 
. 1 
3; 7 
3 7 
3; 3 
3; 7 
3; 1 
3 7 
3 7 
3 
3 7 
3 7 
, 
3 7 
3 3 
3 7 
5 
3 Y 
. 7 
3% 
3 7 
3 7 
3; 3 
: 1 
3 Y 
3 7 
3% 
3 
3; 7 
3 
3 7 
3; 7 
3; 7 
2; 
3 Y 
3 
' 7 
3 7 
; 1 
3 7 
. | 
3 
3 3 


RRR PRR RRR R SEER ERE PERE PEPE PEE ERP P EEE PEPPER EPP PEPPER EPP PEPE 


1 
| 
; Read and optionally update module header 
MAP | 
txtrfa : REF BBLOCK, | 
bufdesc : REF BBLOCK 
updatedesc : REF BBLOCK; | 
2 
2 
; 


2 THEN BEG] 
3 eomodrfa = context Cctx$b_eomodrfa] : BBLOCK; | 
5 CAL | 
ee savendrfa : BBLOCK (rfa$c_length]; 
66 CHSMOVE (rfa$c_length, eomodrfa, savendrfa); 'Save end of module RFA in case reading 

6: eomodrfa (rfa$l_vbn] = 0; 'Disable end of module check 

68 P& porters (read_old_record (localrfa, recdesc)); | 
69 75 HSMOVE (rfa$c_length, savendrfa, eomodrfa); ‘Restore end of module RFA 
70 76 IF .reclen NEQ omh$c_size ‘Must be the right Length 
71 144 THEN RETURN Lbr$_invrfa; z | 
72 2278 reclen = mhd$c_obj ident+tofl$c_maxsymlng; ‘Adjust record length 


tf" 


1473 
1474 


SOOCoCCOOOOOOOO SSSseP OOO 


AF 


3333535955905 500 9R ROR eeOOOe WIS 


ooo 


NOUSWN OO 0OnN 


ee a ae ed ea ee ee ce ee ed ee ed ce ce ee ed ce ce ee a ce a cd ce a ee ec ei cc ee ce el a el ce cl ee ea cl ce el a ea ed ed ec 
Oooo 


POPUP PUPP 
POPPER NONPONINOD) — Ot Ot Os oe 


OCOnNOUSWwN— 


set_module 


COCoCo—~J 
oO 


OONAVUES WN —O OONOUS WO” 


COOCOCOCSCOCSCOCOC OOOO OOO0OOOMWMCcOODODOD 


WWAW NWI WWAWnons 
MEW —OOONAULS WN $$ O OONAUE WIN (OOO NOUE WN O 


PORNO 


PIP IPINPINIPININMYNINININININIPNININININNPYNNYININNIPNYINININPINIPYNIPYNINYNINYNINYUNIPUNINUNPONNofonofnonofnonns 


WANNA AA AANA AAAI AAAI 


WIWWIWIWIWINoNoN 


=PINININIWIN NIWA NIAID IANA NAAN ANNAN AO 
mn 


J 
16- 
14- 


ELSE BEGIN 


ogee reed. rovers (localrfa, recd 
-reclen 3 

OR .recaddr mhgse id] NEQ mhd$c _mhd 

THEN RETURN Lbr$_ ies 


END; 
IF NOT NULLPARAMETER (3) 
THEN .buflen = .reclen 


CHSCOPY (MINU (. reclen, Big ii peek gga bee 
sc$w_leng 


IF 


IF 


context en, “old 163 
IN 


datebuffer : BBLOCK (20), 
datedesc : BBLOCK Cdsc$c _s_bln3, 
datelen; 


recptr = .descptr Cdsc$ gt 
insertdate = recaddr Comh$t_insdat 


CHSMOVE ( {orecpte Conhee pigings +1,¢ 
rec d$b_objidIng) 


recptr wrage ob bjstat) = "Srecptr Comh$b_modatr); 


datedesc Cdsc$w_length 
datedesc [dsc$a_ “pointer] = datebuffer; 
datelen = 0; 


faodesc fdscSu_ length] = 
faodesc 


- fao_old2newd 
dsc$a_pointer] = fao_old2newd 


13 
38) 71382 7 37:40 Dis SKSVMGR neh ASfeRsclaa’ see SRCJGETPUT .B32; if? 


!Read the module header 


sc)); 
$c_mhdlen+.header Eth hd$b_mhdusz] ‘If header the wrong siz 


! or it doesn't loo Like a header 


‘Want header Length returned? 


escptr fdsc$a _pointe 
Old format library? 


BBLOCK 


recaddr, 0, iGopy header with 0 fill 


e] : VECTOR C,WORDJ; !Name old fmt insert date 
ecptr Comh$b_miding], !Convert to new format 


'Copy module attributes 


ate (0); 
ate (1]; 


SFAO (CTRSTR = igesens OUTLEN = datelen 
OUTBUF = datedesc, P1 = “taeered g Sei 


. = .months ((. Teertdale 
sinsertdate C0J); 
SYSSFAO Scatter. “datelen 
datedesc, Taseetdane 2], 


fi] - 25, 


months (C (.insertdate (C1) - .)J, 


.insertdate (0)); 


davedesc (fdscSy length] = .datelen 
SBINTIM (TIMBUF™= datede esc LIMA 
recptr Cmhd$l_refcnt] = Ux FFF # 


IF NOT NULLPARAMETER (4) 
AND NOT .context (ctx$v_oldlib] 
THEN BEGIN 

BIND 


mhdusrdat = .descptr Cdsc$a_pointe 
CHSCOPY tMINU (. header Chhdsb. midusz), 
.up datedesc (dsc$a _pointer 


CHSMOVE (rfage. length, .txtrfa, localrf 


erform (write_record (.reclen, .descp 


eclen GIR .descptr [dsc$w _length) 
“THEN RETURN lbr$_hdrtrunc 
Rte RETURN true” 


_ ORs = recptr Cmhd$l -datin)); 


'Update descriptor 


i Vedat in the module header? 
and not old format Library 


r] + mhd$c_usrdat; 

.u nape noe Be Cdsc$w_length)), 
e oe . ea 

3) eeeez,,* 
tr tdsc$a pointer], localrfa, true)); 


'Of Lbr$set_module 


'Now convert to binary 
t ref. count to a lot 


Lhd$B_mh usz]. mhdusrdat); 


‘Rewrite the header 


(1 


5 
8 


5 
) 
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LBR_GETPUT 16-Sep-1984 01:53:17 VAX=11 Bliss-32 V4.0-74 Page 56. L 
WBe=6p0 set_module 1278 08- 1 3b ON: 33: 1% DISKSVMSMASTER: CLBR.SRCJGETPUT.B32;1 . Rist vt 
| 
! 
.EXTRN SYSSBINTIM 
58 FAD CF 9E 9002 MOVAB REAO_OLD_RECORD, R11 : | 
SE FF4O 6 CE 3 000 MOVAB =192TSP)> SP : 
56 00006 CF DO 0000¢ MOVL  LBRS$GL_CONTROL, R6 > 2246) 
59 OE A6 DO 00017 MOVL  14(R6), R9 : 
04 6¢ 91 0013 CMPB ss AP), 4 + 2250) 
17 1 0001 BLSSU -2$ : 
10 A rE OOO1A TSTL 16 (AP) : 
12 13 00010 BEQL 2$ : 
05 04 Ad 0 E0 9001F BBS #5, 4(R9), 1$ > 2251 
04 Ad 0024 TSTB = &(R9) : 2252 
08 18 00027 BGEQ 2$ : 
50 000000006 8F pO 900 : 1$: MOVL #LBRS$_ILLOP, RO : ae 
E8 AD 06 BC 06 28 09031 2$: MOVC3 #6, @TXTRFA, LOCALRFA : 3255 
56 0A Ab DO 00037 MOVL  10(R6), HEADER > 2256 
02 6C 91 00038 CMPB ss CAP), 2 + 2257 
OB 1F OO003E BLSSU 3$ ; 
08 AC 05 00049 TSTL  8(AP) : | 
06 13 0004 BEQL © 3$ : 
SA 08 AC 00 00045 MOVL §BUFDESC, DESCPTR + 2258 
OE 11 00049 BRB $ : 
20 AE 80 8F 98 00048 3S: MOVZBW #128, MYDESC : 2260 
24 ~=AE 28 AE 9E 00050 MOVAB MYHEADER, MYDESC+4 > 2261 
SA 20 AE 9E 00055 MOVAB MYDESC, DESCPTR + 2262 
28 04 A9 05 €1 00059 4s: BBC #5, 4(R9) + 2264 
18 AE 22. «Ad 06 28 0005E MOVC3 #6. 34(R95, SAVENDRFA t 2272 | 
22 AD D4 00004 CLRL. 34¢R9) : 2273 | 
51 F8 AD 9E 00067 MOVAB RECDESC, R1 > 2276 
50 E8 AD 9E 0006B MOVAB LOCALRFA, R : 
6B 16 O006F JSB READ OLD. RECORD F 
1E 50 £9 00071 BLBC_ STATOS, : 
22 A9 18 AE 06 28 00074 MOVC3 #6, SAVENDRFA, 34(R9) 3; 2275 
1¢ F8 AD B61 OO07A CMPW = RECLEN, #28 : 2276 
30 if 0007E BNEQ : 
F8 AD 1 8B 90080 MOVW #33, RECLEN ; 2278 | 
2 11 00084 BRB 9$ > 2264 | 
51 FS AD 9E 0086 5$: MOVAB RECDESC, R1 > 2281. 
50 E8 AD 9E OO08A MOVAB LOCALRFA, RO : | 
FEAE (CB 16 008 JSB READ_RECORD : 
01 50 *% 00092 6$: BLBS  STATOS, 7$ ; 
ys 009 RET F 
50 3c = ABCA 00096 78: MOV ZBL 60(HEADER), RO : 2282 | 
50 10 CO 0009A ADDL2 #16, R : | 
50 F8 AD 10 0 f 88 CMPZV #0, #16, RECLEN, RO 3 
8 A BNEQ 3 
50 FC AD DO OOOA MOVL RECADDR, R > 2283 
AD 8F 07 Ad 91 000A9 CMPB = «1(RO), #17 ; | 
08 13 OOAE BEQL ; | 
50 000000006 8F v6 0080 8$: MOVL  § #LBRS_INVRFA, RO : 2284 | 
4 00087 RET : 
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VAX-11 Bliss-32 V4.0-74 Page 
D AC SVMOMASTERSLV BR SRCIGETPUT.B32;1 . ab 


a 
I 


1b-depnt9pe 01:58:17 


set_module 


#LBRS_HDRTRUNC, RO 


15$ 


50 000000006 : 


50 


411 bytes, Routine Base: S$CODE$ + OCA0 


; Routine Size: 


N13 
LBR_GETPUT 16-Sep-1984 01:53:17 
vO0=000 LBRSPUT_HISTORY 1or3ep7 1382 93:33:45 


HH 1 ZSBTTL ‘LBRSPUT HISTORY’; 


32 V ge 59 


Pt Pa 
D :CLBR.SRCIGETPUT.B832;1 (19) 


stein’ ROUTINE \6r$put_history (control_index, record_desc) = 
9 eee 
FUNCTIONAL DESCRIPTION: 
Add an wpdate history record to the end of the update history List. 
If the List is full, delete the oldest record before the addition. 
CALLING SEQUENCE: 


status = lbr$put_history (control_index, record_desc) 


control_index is the index returned from Lbr$ini_control 
record_desc is the address of ty descriptor for the. 
record to be added to the Library update history 


i 
i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

INPUT PARAMETERS: 
i 

i 

i 

i 

ROUTINE VALUE: 
i 

i 

i 

i 

i 


PARE AAA MNS PPP LPL EE 


Lbr$_illop Illegal Speratten for access requested 
: Lor$_intrnlerr Internal librarian error 
: Lbr$_normal Normal exit | 
: lLbr$_nohistory This Library does not have an update history 
lLbr$_reclng Record length was greater than lbr$c_maxrecsiz 
. | 
pec iore (validate _ctl (..control_index)); ! Validate the control index | 


o 


BIND 
header = .lbr$gl_control Clbr$l_hdrptr] : BBLOCK; 


IF header Cihd$w_maxluhrec] EQL 0 ! History not maintained for this Library | 
THEN RETURN Lbr$ nen tstory: 
F ah control Clbr$b_func] EQL lbr$c_read ! Shouldn't be here on read 
THEN RETURN Lbr$_ill P 
IF .header Clhd$w_numluhrec] GIR .header Clhd$w_maxluhrec) | 
THEN RETURN Lbr$_intrnlerr; ! somehow there are more than allowed 


IF .header Cihd$w numluhrec) EQL .header Clhd$w_maxluhrec] 
THEN perform ( deTete_luhrecord () ); ! History full, so drop oldest record 


o feat ealealealealealeal tle eslel oP oP oP oP oP oP or oP oP lt, eee eo) 


= DOONAN WN 0 ODNOAMUE WN O ODNAUE WN HO DONA UE WN ODOONOUS WHR 


PAA OOOO Ft 
OOENAUE WN $C OD NOA UE WN O OONAUE WN HO OE NOU SW —O0OMW 


perform (add_luhrecord ( .record_desc)); 
RETURN Lbr$_normal; ! return success 
END; ! lbr$put_history 


ee ee ee ee ee eee ee 
Pw teal al al al alah slealal slab sl ab sb ah Ab db ak ah al ealeal eal wales leah ales ealealeaivaleal salealealealeglealeale. le. e.le lee ee ew, 
PIP PDNNININONIPONNYNINONPININININU NINO NON NPononononononononononononononononononononorfrornopononory 
WANA NAINA AWA WINN AN AANA WWW WWII WANNA AINA AWWA ANNAN 


Be ee Se Oe Se Ge Oe Fe Ge Se Be Ge Be Ge Be Ge Be Se Ge SH SF Sse Os Be Be Ge BF Ss BF Ee Be Be BF Se G4 G6 Se SESE SF 8 Se Se SESH SHES ee Seas 


=A NIWA AAAI ANWIWI EPSP PO NPONOPONPUNoNoNoNoNnonononononononopononononononononn — 
mm _ ome meme momeme meme meme me mems 


COON NNN SNS 
WODDoWoDWdo NNN NNN NS 
Oun&wrrs—o 


OFFC 00000 -ENTRY LBRSPUT_HISTORY, Save R2,R3,R4,R5,R6,R7,R8,~-; 2337 
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LBR_GETPUT 16-Sep-1984 VAX-11 Bliss-32 V 60 
v04=000 LBRSPUT_HISTORY 14- =tep- 1382 3: 33:15 DISKSVMSMASTER: clea OC RCIGETPUT. B32;1 _ (19) | 
50 04 002 MOVL BP ONT ROL INDEX RO + 2367 
00856 BS 09006 BSBW VALIDATES CTL ; : | 
51 50 €9 $e8 BLBC TATUS, 5$ ; 
51 00006 CF Dd 0000C MOVL Lansct ~CONTROL, R1 : 2370 
50 A AI pO 901] MOVL 12 (R1)> RO : 
52 C AO 3C 00015 MOVZWL 4(ROS, R2 : 2372. 
08 i 09019 BNEQ : 
50 000000006 8F pO o0038 MOVL PBRS _NOHISTORY, RO : 2373 
51 03 CO 00023 1$: ADDL2 #3, R1 : 2374. 
01 51 D1 900 § CMPL Ri, #1 : 
08 12 000 BNEQ 2$ : 
50 000000006 8F 00 0002B MOVL § #LBRS$_ILLOP, RO 3 2375) 
04 00032 RET : 
52 7E AO Bi 00033 28: CMPW 126(RO), R2 : 2376 
08 1B 00037 BLEQU : 
50 000000006 8F DO 00039 MOVL §§ #LBRS$_INTRNLERR, RO : 2377 
04 00040 RET : | 
08 12 00041 3$ BNEQ : 2379. 
0000v CF 00 FB 00043 CALLS a. DELETE_LUHRECORD 3 2380) 
12 50 £9 00048 BLBC = STAT “peace : 
08 AC DD 00048 4$: PUSHL RECORD DESC > 2382) 
0000v CF 01 FB sed CALLS ‘ RD _LUHRE CORD 3 
07 50 £9 0005 BLBC’ STATUS, | 
50 00000000G 18F DO 00056 MOVL #LBR$_NORMAL, RO + 2384. 
04 0005D 5$ RET ; 2386) 


; Routine Size: 94 bytes, Routine Base: S$CODE$ + 0E3B 


; 1582 2387 1 


14 
LBR_GETPUT 1$-Se 1984 01:53:17 VAX-11 Bliss=-32 V4.0-74 Page 61 
y0e7000 add_luhrecord 12786871382 3333540 DL eKSVMEMASTERSCLBR. SRCIGETPUT.B32; 1 (20) 

584 88 1 XSBTTL ‘add _luhrecord'; 
ee ROUTINE add_Tuhrecord ( rec_desc ) = 
587 lo+4 
588 : . 
589 ' This routine copies the library update history record from the 
590 : descriptor at address rec_desc to the end of the Linked list of 
rp ‘ Library update history records. 
398 lees | 
594 MAP 
4 swe" : REF BBLOCK; ! caller's descriptor for LUH record 
597 context = ppocset control Clor$l_ctxptr] : BBLOCK, ! Context block 
598 header = .lbr$gl_Control Clor$l_Rdrptr] : BBLOCK, ! Library header block 2 
599 endrfa = header Clhd$b_endluhrfa] : BBLOCK, ! rfa of end of youngest LUH record in List 
600 endluhvbn = endrfa (rfa$l_vbn], ! VBN of block containing end of Luh List 
601 endoffset = endrfa ([rfa$w_offset]_: WORD, ! offset to end of LUH List 
602 recrdlen = rec_desc Cdsc$w_length]: WORD, ! Length of LUH record 
oR? la = rec_desSc Cdsc$a_pointer] : BBLOCK; ! starting location of LUH record 
605 cache_entry : REF BBLOCK, ! cache entry of new block 

cpyrecadr, ' how much of the record is left to copy into LUH block 

endblkadr : REF BBLOCK, ! address of cached end LUH block 

endvbn, ' VBN of first free space in history blocks 


' 

' 
offset, ! offset to first available spree 
rec : REF BBLOCK, ; address where LUH record will be stored 


606 

60 

60 

és 

2 reclenlft; ! address of remainder of record to be copied in. 
61 IF_.recrdlen GTR Lbr$c_maxrecsiz ! record too long 

oy THEN RETURN Lbr$_recing; 

61 endvbn = .endluhvbn; 

61 offset = .endoffset; 

61 IF .header Clhd$w_numluhrec] EQL 0 
61 THEN 
6¢ ity ! Get some space to store record 
62 begluhrfa = header Clhd$b_begluhrfa] : BBLOCK, 

62 begvbn = begluhrfa [rfa$l_vbnl, 

62 begoffset = begluhrfa ([rfa$w_offset] : WORD; 

62 LOCAL 

62 newvbn, 


newblkadr; 
IF .begvbn OR .endluhvbn THEN RETURN lbr$_intrnlerr; ! both of these should be 0 
! Logic error may result in some blocks being Lost 


. Get a free block, cache it and set header pointers to it's vbn. 


erform ( alloc block (newvbn, newblkadr) ); 
HS$FILL (0, Luh$Sc_length, .newblkadr); 
add_cache (.newvbn, cache_entry); 
cache_entry cache$l_addréss) = .newblkadr; 
cache_entry (cache$v_data] = true; 
cache entry Ccache$v_dirty] = true; 
endblkadr = .newblkadr; 

endvbn = .newvbn; 


Be Se Oe Oe Be Se Be Be Ge Be Se Se FH Se Se Se Se Se Fe Be Be Se Se Se Be Se Ge BF Os Bs Se Se Se Se Se BF Se Se Se Se Se Se Se SH Se Fe Se Ss Ss os Oe SH Se Se Se Se we 
ee ee ee eee ee ee ee 
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82600 add_luhrecord 1228eb 1382 333 740 DLSKSVMEMASTERSCLBA. SRCIGETPUT.B32; 1 : (285. 
; 1641 445 begvbn = .newvbn; 

; 1906 rr poset Feet = 0; 

: 164 44 EN 

> 1644 448 ELSE 
; 1645 449 ' 
3 Hb 4 cay } Find the Last block in the chain of history records and cache 

3; 1648 12g BEGIN 

3; 1649 45 perform ( find block (.endvbn, endblkadr, cache_entry) ); ! Cache end of history block 

: 1650 454 cache_entry Ccache$v_data] = true; ! Mark as data 

>; 1651 2455 cache_entry (cache$v_dirty] = true; ! Mark to write 

; 1996 sias D; 

; 165 457 

: 1654 2458 IF .offset GTR Luh$c_datfldlen THEN RETURN Lbr$_intrnlerr; ! Offset can't point beyond end of record 
3 199? $t28 AF yunsc_rechdrlen GTR Luh$c_datfldlen - .offsef ! if there isn't enough room left for record heade- | 
3; 1657 2461 BEGIN ! mot enough room left for the record length so get new block 

>; 1658 sree LOCAL 

; 1659 2465 3 newvbn, 

; 1660 2464 3 newblkadr; 

; 1661 2465 3 erform ( alloc_block (newvbn, newblkadr) ); 

: 1662 2466 3 HSFILL (0, Luh$c_length, .newblkadr); ' zero out whole block 

3 1663 2467 3 add_cache (.newvbn, cache_entry); ! cache it 

> 1664 2468 cache_entry cache$l_address] = .mewblkadr; ! fill in cache entry 

; 1665 2469 3 cache_entry Ccache$v_data] = true; 

3; 1666 2470 3 cache entry cache$v_dirty] = true; 

: 1667 2471 3 endblkadrCluh$l_nxtliGhblkj = .newvbn; ! Link it in to List of LUH record blocks 

; 1668 2472 3 endblkadr = .newblkadr; ! Update rfa of free space. 

; 1669 2473 3 endvbn = .newvbn; 

: 1670 2474 3 offset = 0; 

3 1671 2475 2 END; 

; 1672 2476 2 

: 1673 2477 2! 

3 1674 478 2! Each update history record starts with a word to mark it for error checking 

; 1073 ath § followed by a word containing the length of the record. 

3: 1677 2481 2 rec = .endblkadr + Luh$c_data + .offset; ' New record begins at end of Last 

3; 1678 248 § rec Cluh$w_rechdr]) = luh$c_rechdrmrk; ! Mark the new record 

: 1679 248 rec Cluh$w_reclen] = .recrdlen; ! Store the length } 

: 1680 2484 2 reclenift = .recrdlen; ' Set length to copy entire record 

; 1681 2485 2 offset = .offset + luh$c_rechdrlen; ' Bump offset to account for mark and length words 

3; 1682 2486 2 coereceer = ,recrd; ! Begin copy from start of record 

3; 1683 2487 2 WHILE ( .reclenlft GTR 0 ) DO ! While there is more to copy 

: 1684 488 ; BEGIN 

>: 1685 489 LOCAL F 

3: 1686 2490 3 cpylen; ' How much to copy with each move 

3; 1687 2491 4 If ( (.offset EQL luh$c_datfldlen) AND (.reclenlft GTR 0) ) 

3; 1688 2492 3 THEN 

: 1689 493 4 BEGIN ! used up last of that block, get next ready 

3; 1690 494 4 LOCAL 

3: 1691 495 4 newvbn, 

$ 1998 496 4 newblkadr; 

3; 169 497 4 erform ( alloc_block (newvbn, newblkadr) ); 

3 1694 498 4 HSFILL (0, luhSc_length, .newblkadr); 

3; 1695 499 4 add_ cache (.newvbn, cache_entry); 

; 1696 500 4 cache_entry Ecache§l address] = .newblkadr; 

; 1697 2501 4 cache_entry Ccache$v_data] = true; 


LBR_GETPUT 1b-Se -1984 01:53:17 VAX-11 Bliss-32 V4.0-742 Page 63 
yOe=600 add_luhrecord 12-8 08- 1 9be On: 33:17 DISKSVMSMASTER:CLBR. SRCIGETPUT.B32; 1 . (28) 
; 1698 02 4 cache entry Ccache$v_dirty] = true; 
+ 1699 308 & endb\RadrCiuh$t_ nxt lanblk4 = .newvbn; |! Link the new block to the Last 
; 1700 504 4 endblkadr = .newblkadr; ! Use new block 
; 1701 505 4 endvbn = .newyvbn; 
; 1706 209 4 a = 6; ' Reset offset to beginning of new block 
3: 1704 508 cpylen = MIN( Luh$c_datfldlen - .offset, .reclenift); ! Either copy enough record to fill the rest 
; 1705 509 ! or copy to the end of the record if it wil 
: 1706 510 CHSMOVE( .cpylen, .cpyrecadr, .endblkadr + luh$c_data +.offset); ! Copy record 
3; 1707 511 cpyrecadr = .cpyrecadr + .cpylen; 
3; 1708 216 reclenlft = .reclenlft - .cpylen; 
; 1709 51 offset = .offset + .cpylen; 
; vy ai8 END; ! WHILE copying record 
; 1712 2516 endoffset = .offset; ! Update the header to point to end of record 
: 1715 2517 2 endluhvbn = .endvbn; ! Update header to gerry to the Last block in the Linked List 
3 1714 2518 2 header Clhd$w_numluhrec] = .header Clhd$w_numluhrec] + 1; ! There is one more record in the history 
: 1715 2519 2 context Cctx$v_hdrdirty] = true; !"Make sure header is written out when cache is deallocated 
3: 1716 2520 2 RETURN true; 
3; 1717 2521 1 END; ! add_luhrecord 
| 
OFFC 00000 ADD_LUHRECORD: 
» WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 2389 
5E 24 C2 00002 SUBL2 #36, SP i 
50 00006 CF DO 00005 MOVL §LBRSGL_CONTROL, RO > 2401) 
OE AO DD QO00A PUSHL 14(RO) 3 
57 OA AO DO 00000 MOVL 10(RO), R7 : 2402 
59 0086 C7 9E 00011 MOVAB 134(R75, RY > 2403 | 
58 04 AC 04 C1 00016 ADDL3 #4, REC_DESC, R8 : 2407. 
0800 8F 04 BC 61 0001B CMPW = AREC_DESC, #2048 : 2417 
08 1B 00021 BLEQU 1$ : 
50 00000000G 8F D0 00023 #LBRS_RECLNG, RO : 2418 
04 0002A RET 3 
58 69 DO 00028 1$: MOVL (R9), ENDVBN : 2420 
56 04 ad 3C 000¢E MOVZWL 4(R9S, OFFSET > 2401 | 
7E A? B5 00032 STW 126(R?) > 222 | 
4C 12 00035 NEQ 2$ Ps 
5A 0080 C7 43 00037 MOVAB 128(R7), R10 : 2426 
66 6A €E8 0003C BLBS (R10), 4$ : 2432 
63 69 £8 rg LBS (RI), 4$ 3 
51 08 AE 9E 00042 MOVAB NEWBLKADR, R1 3: 2437 | 
50 OC AE 3 00046 MOVAB NEWVBN, RO ; 
00006 30 O004A BSBW ALLOC_BLOCK 3 
75 50 5 00040 BLBC TATUS, 6$ 
0200 8F 00 6E “ 00 C 9050 MOVCS #0, (SP), #0, #512, @NEWBLKADR > 2438 | 
51 4 AE 9 i MOVAB CACHE_ENTRY, R1 3: 2439. 
50 y AE g 0050 MOVL NEWVBA, RO : 
00006 0061 BSBW ADD_CACHE ; 
30 4 AE 00 he MOVL CACRE_ENTRY, RO 3; 2440) 
08 A 8 AE 00 00068 MOVL  NEWBLRADR, 8(RO) : | 
0c Ad 0 8 00060 BISB2 45, R 3; 2442. 
10 AE 08 AE DO 00071 OVL NEWBLKADR, ENDBLKADR : 244 


ee a et ee a ae ee Oo ee See es —_— 
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Pe 850 add_luhrecord 12-Sep-19 4 033716 TTX SUMGHASTERS VBR SRCTGETPUT.B32:1 . (28) | 

58 oc AE D0 00076 MOVL §_NEWVBN, ENDVBN : 2646 | 
6A C AE DO OOO7A MOVL ratty (R10) s 445. 
04 AA B4 0007E CLRW  4(R10) + 3446. 
19 11 00081 BRB 3 + 2422. 
52 24 AE 9E 00083 2$: MOVAB CACHE_ENTRY, R2 3 2453) 
51 10 AE 3 0087 MOVAB ENDBLRADR, R1 : 
50 58 p 0088 MOVL ENDVBN, RO : | 
00006 30 OOO8E BSBW FIND BLOCK : | 
31 50 £9 00091 BLBC = STAT : | 
50 24 AE DO 00094 MOVL CACHE _ENTRY, RO i 2454, 
0c Ad Q 88 00098 BISB2 #3, 12(RO) + 2455 
QOO001FA BF : D1 d9¢ 3$: CMPL OFFSET, #506 : 2458 
08 15 A BLEQ $ : 
50 000000006 8F DO OO0AS 4s: MOVL § #LBRS_INTRNLERR, RO : 
04 OO00AC RET : | 
50 04 A6 9E OOOAD 5S: MOVAB 4(R6), RO > 2459. 
Q00001FA  &F 50 01 00081 CMPL = RO, #506 : 
3F 15 00088 BLEG : | 
51 146 AE 9E OOOBA MOVAB NEWBLKADR, R1 > 2465 | 
50 18 AE. 96 O00BE MOVAB NEWVBN, RO ; | 
00006 3 000¢e BSBW  ALLOC_BLOCK : | 
6D 50 £9 O000C5 6$: BLBC_ _—s STATUS, ; 
0200 8F 00 6E 1g 02 26 000¢8 MOVCS #0, (SP). #O, #512, @NEWBLKADR ; 2466 | 
51 24 AE 9€ 00001 MOVAB CACHE ENTRY, R1 : 2467 | 
50 18 AE DO 00005 MOVL NEWVBA, RO : 
00006 30 000D9 BSBW ADD_CACHE é 
50 24 AE dO 000DC MOVL § CACRE_ENTRY, RO + 2468 | 
08 AO 14 AE DO O00EO MOVL § NEWBLRADR, 8(RO) : 
0c Ao 03 88 OO0ES BISB2 #3, 12(ROS : 2470 
10 BE 18 AE DO 000E9 MOVL § NEWVBN, @ENDBLKADR : 2471 
10 AE 14 AE DO OOOEE MOVL + hee oe ENDBLKADR 3: 247 
58 18 AE DO O0O0F3 MOVL NEWVBN, ENDVBN s 247 
56 D4 000F7 CLRL_ OFFSET + 2474 
50 56 10 AE C1 000F9 7S: ADDL3 ENDBLKADR, OFFSET, RO + 2481 
5 06 CO OOOFE ADDL2 # REC ; 
60 ABBA 8F 80 00101 MOVW #21574, (REC) > 248 
02 Ad 04 BC BO 00106 MOVW  @REC_DESC, 2(REC) + 248 
SA 04 BC 3C 0010B MOVZWL @REC DESC, RECLENLFT + 2484 
56 04 CO 0010F ADDL2 #4, OFFSET + 2485 
04 AE 68 DO 00112 MOVL (R&), CPYRECADR + 2486 
50 04 00116 8$: CLRL + 2487 
SA DS 00118 TSTL RECLENLFT : 
77 «15 OO11A BLEQ 128 : | 
50 06 0011C INCL R ; 
Q00001FA 8F 56 (1 OO11E CMPL OFFSET, #506 ; 2491 | 
42 12 0012 BNEQ 10% ; | 
3F 50 €9 00127 BLBC RO, 10$ : 
51 1¢ AE SE O012A MOVAB NEWBLKADR, R1 > 2497 | 
50 20 AE 3 01 E MOVAB NEWVBN, RO ; | 
00006 30 001 BSBW ALLOC BLOCK : | 
6F 50 E9 0135 9$: BLBC_ STATUS, 13$ : | 
0200 8F 00 6E - 00 C 01 8 MOVCS #0, (SP), #0, #512, @NEWBLKADR : 2498 | 
51 24 AE 9€ 00141 MOVAB CACHE_ENTRY, R1 > 2499 | 
50 0 AE p 00143 MOVL NEWVBN, RO : 
00006 0149 BSBW ADD_CACHE ; 


14 
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ibe=650 add_luhrecord 12-0 8=13Re 04:33:17 DISKSVMSMASTER:CLBR. Ske GETPUT.B32;1 she (28) 
50 4 AE DO 0014 MOVL _ CACHE_ENTRY, R : 2500 
08 A e Ar b0 0150 MOVL NEW RADR. RS) : ‘ 
oC A 03 88 001 BISB2 ; 502 
10 BE 20 AE OD o1 9 MOVL NEWVBN , : 250 
10 AE 1C AE 00 001 MOVL §§NEWBLKADR, PRBBLKADR + 2504 
58 20 AE D0 0016 MOVL §NEWVBN, ENDVBN + 2505 
56 D4 0016 CLRL_  OFFSE ; 2506 | 
50 OOO001FA 8F 56 C3 199 10$:  SUBL3 OFFSET, #506, RO + 2508 
5A 30 D1 01 1 CMPL RO, RECLENLFT : 
g 15 00174 BLEG 3=s«118 : 
50 A 00 00176 MOVL RECLENLFT . RO F 
58 50 00 0017 11$:  MOVL. RO, CPYLEN ; 
50 56 10 AE cI 17¢ ADDL3 ENOBLKADR, OFFSET, RO + 2510 
06 AO 04 BE 58 28 00181 MOVC3 CPYLEN, acPY YRECADR, 6(RO) : 
04 AE 58 CO 00187 ADDL2 CPYLEN, CPYRECAD + 2511 
Sh 58 Ce 00188 SUBL2  CPYLEN, RECLENLPT : 51¢ 
56 58 CO 0018E ADDL2 CPYLEN., OFFSET + 251 
83 11 00191 BRB 8$ + 2487 
04 ag 56 BO 00193 12$:  MOVW OFFSET, 4(R9) + 2516 
69 5B DO 00197 MOVL _ENDVBN, (R9) : 2517 
7E AZ B6 0019A INCW 126(R75 : 2518 
50 6E 04 C1 0019D ADDL3 #4, (SP), RO + 2519 
60 08 88 OO1A1 BISB2 #8. (RO) : 
50 01 DO O01A4 OVL #1. RO > 2520 
04 O01A7 13$: ET + 2521 


; Routine Size: 424 bytes, Routine Base: SCODE$ + 0E99 


3: 1718 


2522 1 
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pyput liss- “wits, 

delete_luhrecord MASTER: CLBR.SRCIGETPUT.B32;1 (21). 
ZSBITL ‘delete _luhrecord'; 
ROUTINE delete_Tuhrecord = 
BEGIN 


1oe4 


<r 
it 
oo 


! Remove the oldest LUH record by — offset to bypass it. If record 
: crosses block boundaries than return freed blocks to Library header 

! free List. If there is only one record in the aenane then the history 
‘ is completely emptied with all blocks returned and all pointers zeroed. 


context = raeceet control Clor$l_ctxptr] : BBLOCK, ! Context block 
header = .lbr$gl_Ccontrol Clor$l Rergtr : BBLOCK, 

begluhrfa = header (lhd$b_beglufirfa] : BBLOCK, 

begvbn = begluhrfa [rfa$l_vbn] 

begoffset = begluhrfa ([rfa$w_offset] : WORD; 

Check if there is only one ~ccord in history. 
zheoter Clhd$w_numluhrec) EQL 1 

BEGIN ! Return all blocks in history 

BIND 


endluhrfa = header Clhd$b_endluhrfa] : BBLOCK, 
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: _indes tees endluhrfa (rfa$w_offset] : WORD; 
5 blkadr : REF BBLOCK, 
5 cache_entry : REF BBLOCK, 
5 vbn; 

vbn = .begvbn; ! First vbn in history Linked List 

dO ! As long as there are more Luh blocks in List 
5 BEGIN ! keep deallocating them. 
5 LOCAL 

ret_vbn; 


ret_vbn = .vbn; ! Block to deallocate 
perform ( find_block (.vbn, blkadr, cache_entry)); ! Cache it 
cache_entry Ccache$v_data] = true; 

cache_entry Ccache$v_dirty] = true; 


ee ee ee _..__.__.__._._.. ee ee ee ee LL 4 
NNN NNN SSNS SSNS SSIS NNN SSNS NNSA NSS 
Ay Re RR et eh tet eat BEERS FW wnonoponorenepenonory 
MEW 0 OONOUSWN —O OONO UES WN $0 OONAUS WN OODONOUE WO 
AAAI AAW NAIA BB BBE EE BE BAAN NWIWIIInnonononononononononononororonoporonony ——_so5 
mm 
c 


PIPIPINIPIMINPDNININININIPINININONYNININIPIPPININININIPININININIPINOPUNO No No noNnononofonunponoropnonopnonopornopofpononyd 


vbn = .blkadr Cluh$l"nxtluhblkd; ! Follow Link to next block 
$2 oe rare ( dealloc_block ( .ret_vbn )); ! return it to free List 
$ UNTIL .vbn EQL 0; ! End of List 
68 +4 Zero all header pointers and offsets to mark history empty | 
68 71 begluhrfa = 0; 
69 % begoffset = 0; 
770 7 endluhrfa = 0; 
771 74 endoffset = 0; 
re 75 ee, 
77 4 | ! There was more than one record in history, so remove the 
774 7 BEGIN ' oldest, or first in the List 
775 78 LOCAL eee 
776 79 cache_entry : REF BBLOCK, ! location in cache of luhblk 


. 
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042000 


1 
delete_luhrecord 1 
! 
' 
! 


3; 1777 580 blkadr : REF BBLOCK, ! address of VBN in — 

>; 1778 581 reclenlft ' Length of the LUH record 

3; 1779 5 ¢ rec : REF *BBLOCK, address of record within lLuhbLk 

3; 1780 58 offset, 

: 1781 ef vbn; 

; 1786 5 

3; 178 286 vbn = .begvbn; 

> 1784 58 offset = ~begof 

>; 1785 588 perform ( find vies Seger, blkadr, cache_entry) ); ! ensure the block is in cache. 
3: 1786 589 cache_entry poachesv. sta true; 

3; 1787 590 cache_entry Ccache$v_dirty] = true; 

3 res 23) rec = “,blkadr + luh$¢_data + .offset; ! compute address of record start 

3 1730 398 Check mark word in header 

3 176 $232 iF -rec Ciuh$w_rechdr] NEQ Luh$c_rechdrmrk THEN RETURN Lbr$_intrnlerr; 

3 1794 2597 i To delete the record, the offset and beginning vbn pointer are reset to point to 
3; 1795 $296 i the second record. This is done a block at , time. If any blocks ar» freed in 
5 1738 4 the process, they are roturnnt to the free-Llist. 

3; 1798 sent 3 reclenlft = .rec Cluh$w_reclen] + Luh$c _rechdrlen; ! Length of record not yet skipped over 
; 1Pe 5006 ? WHILE .reclenlft GTR 0 BO i While there is still part of the record left 
; 1801 2604 5 IF ( .offset + -reclenift ) LEQ ( Luh$c_datfldlen - luh$c_rechdrlen) 

: 1802 2605 4 THEN the record is entirely contained in this block 

: 1803 2606 5 BEGIN i Set offset to end of record and don't return the block cause next record is in it 
3: 1804 2607 5 offset = .offset + .reclenlft; 

: 1805 2608 5 reclenlft = 0; ! skipped past entire record 

: 1806 2609 5 

3 1807 2610 4 ELSE 

; 1808 2611 5 BEGIN ! The record fills or overflows this block so deallocate block 

: 1809 sole 5 Local 

3; 1810 261 5 ret 

3; 1811 2614 5 es : * eecleni tt - (luh$c_datfldlen - .offset); 

g a 2615 5 offset = _ 

; 181 2616 5 ret_vbn = 

; 1814 2617 5 vbn7= *ptkade "ELunst _axtluhblk; 

: 1815 618 5 perform ; Goal lor block ( .ret vbn )); 

: 1816 619 5 perform ( find_blick ( .vbn, blkadr, cache entry) ); 

: 1817 620 5 cache_entry peSchegv. data] = true; 

; 1818 621 5 gocha., “entry Ccache$v_dirty] = true; 

3; 1819 26 § 4 

3 1350 6 END; ; F 

: 1821 624 begvbn = .vbn; ! Second record is now first 

3 \8e¢ ° 2 bego offset = .offset; 

3: 1824 2627 header tindsw srualuprect = ,header CUhd$w_ numluhrec] - 1; 

: 1825 2628 context Cotx$v hdrdirty] = true; '“Make sure fal is written out 

: 1826 $068 RETURN true; 

: 1827 650 1 END; ! routine delete_luhrecord 
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14 63. “11 Bliss-32 V4.0-74 {Page 68 
. 1b-Se0-19 i 93:87:00 DLSKSVMSMASTERSCLOR. SRC GETPUT.832;1 cath 
vouz000 delete_luhrecord WORD Save R2,R3,R4.R5.RO.R7,RB,RO-R10,R11 ; 2524 
ND_BLOCK, R : | 
5900006 ¢F 9 00002 SUL? #16,7SP ; 2535) 
5 i? fs Bee MOVL LBRSGL_CONTRCL, RO | 
eh ae ea 3s 
8 OA no b0 pet3 MOVAB 12BCRGS, R6 3 544 
i ace 01 i a t oesa! 
30 12 000 os R6), VBN 3560 
23 88 r 30 18 MOVE. VBN, “RET V $280 | 
3 Bie lg Gig tay 2 pt 
MOV ; | 
3 04 Bb boose MOVL VBN, RO 
33 DO O00¢F ND_BLOCK : | 
th GF AS BOO Re Bac | STATOS 38 3562 
RHR |, ACM attr. : $382 
«Ho PB we Be ee i 
8 0049 BSaW —_DEACLOC “BL OCK 
ie i Meee 0 
53 D5 00048 Istt V8 * 9574 
io Bt Bee HL, : 3878 
04 Ad B4 054 CLRL 134(R4) 3 2574 
008A 4 Be 00088 CLRU138(R4) : 2544 
$$ eS RE Sato “°° ROVE. Res Greer, : 2386 
MOVAB ‘ : 
52 08 AE 9E 00066 MOVAB- BLKADR, R1 3 
51 = & 5 oe MOVL  (R6), RO : 
50 ee tet JSB_-- FIND BLOCK ; 
69 16 00071 S, 1 : 2589 
$08 AO 007 OWL, ACNE ETRY, Re : 2590 
30 O7A BISB #3, 0 : 
oc ad 05 88 80 ADDL3 BLKADR, OFFSET, R : 
OC AE C1 0007 é : 2595 | 
” 2 06 £0 00088 + et TA ee | 
ne 60 81 00086 CAPs | 
ooooo00s BF D0 00080 MOVL  #LBRS_INTRNLERR, RO Fon 
50 0 RET F | 
Bi (REC), RECLENLFT 
55 02 a0 $ 09038 48: MOVZWL 2(REC), RECLE 2602 | 
- 33 5S 9009C 5S: TSTL RECLENLFT me 
$3 C7 QOOA0 ADDLS RECLENLET, OFFSET. RO | 
°° goooorrs BF 39 8e O00aB SGTR. 68" ; 2607 | 
BF tS OOOAB ADDL2 RECLENLFT, OFFSET + $808 | 
53 3 CO 000 CLRL = RECLENLFT 2604 
23 OF ReneS BRB CLENLFT : 2614 
Fe Oe OooRS 6S MOVAB =506(OFFSET)CRECLENLFTJ, RE : Seis | 
ee Oe oe a ee uae 5 €OtG| 
50 $7 D0 000BC MOVL © VBN, RET_ | 
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LBR_GETPUT 16-Se 1984 01:53:17 VAX-11 Bliss-32 V4.0-74 Page 70. 
voc=000 LBRSGET_HISTORY 14-Sep-19 4 93337505 DLSKSVMSMASTERSCLBR. SRCIGETPUT.B32; 1 . (22) 
; 1830 6 § 1 ZSBITL ‘LBRSGET _HISTORY'; 
: 1 1 6 1 GLOBAL ROUTINE LBr$get_history (control_index, action_routine) = 
3 1 ¢ 634 BEGIN 
; 18 635 lo++ 
> 1834 6 $ : 
; 1332 ° 4 | FUNCTIONAL DESCRIPTION: 
; 1837 639 : For each Library Update yrevery record copy the record to a buffer 
; te ory } and call the action_routine with a descriptor for the buffer. 
> 1840 song : 
>; 1841 64 ! CALLING SEQUENCE: 
: seg 644 : 
3; 184 645 : status = lbr$get_history (control_index, action_routine) 
> 1844 2646 § ‘ 
; 1845 2647 : 
>; 1846 2648 2 ! INPUT PARAMETERS: 
> 1847 2649 § : : 
; 1848 2650 : control_index is the index returned from Lbr$ini_control 
3 1849 2651 2! action_routine is a user Supe} tod routine which is called for each 
; 1850 $026 e} LUH record, being passed a descriptor for the buffer 
: 1851 265 5 : containing a copy of the record. | 
: 1324 2654 : | 
>; 185 2655 2 ! ROUTINE VALUE: 
3 1854 2656 2 ! 
; 1855 2657 2! Lor$_intrnlerr Internal Librarian error 
; 1856 2658 2! Lbr$_normal Normal exit ; 
; 1857 2659 2! Lbr$_nohistory This Library does not have an update history | 
3 1828 See § } Lbr$_emptyhist The history is empty 
; 1860 2662 2 peciers (validate_ctl (..control_index)); ! Validate the control index 
; 1861 2663 3 BEGIN | 
; 1862 2664 3 ; 
; 1863 2665 3 header = .lbr$gl_control Clbr$l hgretes : BBLOCK, ! Library header 
; 1864 2666 3 luhblkrfa = header Clhd$b_beglufrfa] : BBLOCK, ! efa of the oldest LUH record 
: 1865 2667 3 beg_offset = luhblkrfa Crfa$w_offset) : WORD, ! offset to first record 
; 1866 2668 3 beg_vbn = luhblkrfa Crfa$l_vbn); ! VBN of first record 
; 1867 2669 3 LOCAL 
; 1868 2670 3 blkadr : REF BBLOCK, ' block address of cached block | 
; 1869 2671 3 cache_entry : REF BBLOCK, ! cache entry Locating Luh block. . 
; 1870 sors 3 numrecs : WORD, ! number of history records in library history 
: 1871 2675 3 offset, ! offset to current LUH record being copied 
: 1872 2674 3 vbn, ! VBN of current LUH record being copied 
; 1873 ser? ; status; 
3 1874 676 ; 
; 1875 2677 3 IF .header Clhd$w_maxluhrec] EQL 0 ! History not maintained for this Library 
; 1876 $078 THEN RETURN Lbr$_nohistory; : yO 
; 1877 679 If header Clhd$w_numluhrec] EQL 0 ! History is empty for this library 
; ire $080 THEN RETURN Lbr$_emptyhist; 
: 1880 368. : For as many LUH records as are in the Library history, locate next record, 
: Hert vey : copy it to buffer, and call action_routine with buffer descriptor. 
; 1888 3685 vbn = .beg_vbn; ! vbn of first record : 
; 1884 686 offset = .beg_offset; ! Offset within block to first record 
3; 1885 at status = find-block (.vbn, blkadr, cache_entry); ' cache the block 
; 1886 688 cache_entry fache$v_datad = true; 
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; 1887 689 ; nuaregs = .header Clhd$w_numluhrec); ! Number of LUH records 
>; 1888 690 INCR i FROM 1 TO .numrecs BY 1 DO ! for each record in history 
; 1889 691 4 BEGIN 
; 1890 692 4 LOCAL 
; 1891 6935 4 cpyrecadr, 
: 1938 694 4 dstadr, 
; 189 695 4 luhrec : REF BBLOCK : 
> 1894 696 4 pass_desc : BBLOCK Ldsc$c_s_bln], ! Descriptor to pass to user routine ; 
>; 1895 697 4 save_desc : BBLOCK [dsc$c_s_binl, ! Descriptor to use to dealloc buffer (In case user diddles | 
>; 1896 698 4 reclen 
: 1897 699 4 reclen(ft; 
; 1898 700 4 tegher: : 
; 1899 701 4 luhrec = .blkadr + luh$c_data + .offset; : bog taning edérese of first record 
; 1900 re 4 IF .luhrec Cluh$w_rechdr] NEQ Luh$c_rechdrmrk ! history is corrupted if mark header not here 
; 1901 703 4 THEN RETURN Lbr$_intrnlerr; 
; 1308 704 4 reclen = .luhrec Cluh$w_reclen); 
; 190 705 4 reclenlft = .reclen; 
> 1904 5/06 4 save_desc Cdsc$w_length] = .reclen; ‘ 
; 1905 707 4 perform ( get_zmem (.reclen, save_desc Cdsc$a_pointer?) ); ! get buffer to put record in 
: 1906 2708 4 pass_desc = .Save_desc; . ! Pass_desc is a copy of save_desc 
: + 44 144 ? pass_desc Cdsc$a_pointer] = .save_desc Cdsc$a_pointer]; 
3 1909 Aa 4S : now get record into buffer Peat 
3; 1910 sil¢ 4 ‘ Since record can span several blocks, copy as much of record as is in current block. 
; 1911 414 4 : then follow Link to next block. Continue until entire record copied into buffer. 
: at ae ? Then call user routine with a descriptor of the copy of the record. 
3 1914 aR 4 Soyrecede = ,luhrec + Luh$c_rechdrlen; 
s 1915 2717 4 offset = .offset + luh$c_rechdrlen; 
: 1916 2718 4 dstadr = .save_ desc [dsc$a_pointerJ; : ae 
3; 1917 2719 & WHILE .reclenl ft GTR 0 DO ~ ! While there is more left, keep copying it over 
; 1918 2720 5 BEGIN 
3 1919 e721 5 LOCAL 
: 1920 e722 5 cpylen; 
3; 1921 e723 5 spzien = MIN( .reclenlft, Luh$c_datfldlen - .offset); 
3 1922 2724 5 CHSMOVE (.cpylen, .cpyrecadr, .dstadr); 
3: 1923 2725 «(5 reclenlft = .reclenlft - .cpylen; 
: 1924 2726 5 offset = .offset + .cpylen; 
: 1925 2727 5 dstadr = .dstadr + .cpylen; | 
3 1926 2728 6 IF (.offset GIR (luh$c_datfldlen - luh$c_rechdrlen)) : 
: 1927 $762 5 THEN 
: 1928 2730 6 BEGIN 
3 1929 2731 6 vbn = .blkadr Cluh$l_nxtluhblkI; 
3 190 $336 6 offset = 0; 
: 1931 733 6 status = ting block (.vbn, blkadr, cache_entry); 
; 1936 2734 6 cache_entry Ccache$v data) = true: 
3 193 2735 6 cpyretadr = .blkadr * luh$c_data 
3 1934 736 «5 END; : 
> 1935 737 4 END; ' . ! while copying over record to buffer 
; 1936 738 4 perform ( (.action_routine) (pass desc) ); ! Call user routine 
3; 1937 739 4 perform (validate ttl (..control_Tndex)); ! Validate the control index 
; 1938 740 4 erform ( dealloc_mem ( .save_desc Cdsc$w length], .save_desc [dsc$a_pointer] )); ! Return the buffer 
; 1939 2741 ; ND; ' INCRement thru the Ristory list 
: 1940 748 RETURN [br$_normal; 
3 1941 74 ¢ END; : 
3 1942 744 END; ! Lbr$get_history 
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OFFC 00000 ENTRY LBRSGET HISTORY, Save R2,R3,R4,R5,R6,R7.R8,-; 

R9,R10,R11 : 

SE 24 (2 90002 SUBL2 #36, SP : 

50 04 BC b0 000 VL @CONTROL_INDEX, RO : 
00006 30 00009 BSBW  VALIDATE~CTL : 

7F 50 €9 0000¢ BLBC ‘STATUS, 5$ : 

30 00006 CF D0 O000F MOVL  LBRSGL’ CONTROL, RO ; 

8 A AQ D0 0014 MOVL 19(RO) R3 : 

C Ad B5 00018 TSTW =: 124 (R35 : 

08 if 00018 BNEQ ‘18 : 

50 000000006 8F D0 0001D MOVL § #LBRS_NOHISTORY, RO : 

04 00024 RET : 

7E A3 BS 00025 1$: TSTW  126(R3) : 

08 12 00028 BNEQ 2$ : 

50 000000006 8F DO O002A MOVL § #LBRS_EMPTYHIST, RO : 

04 00031 RET : 

04 AE 0080 C3 D0 00032 28: MOVL  128(R3), VBN ; 
58 0084 ¢3 3¢ 00038 MOVZWL 132(R3). OFFSET : 

52 0c AE 9€ 0003D MOVAB CACHE_ENTRY, R2 3 

51 10 AE 9E 00041 MOVAB BLKADR, R1 : 

50 04 AE 06 00045 MOVL -VBN, R : 
00006 30 00049 BSBW  - FIND_BLOCK : 

08 AE 50 DO 0004¢ MOVL RO, STATUS : 
50 0c AE DO 00050 MOVL  CACHE_ENTRY, RO : 

oc Ad 02 88 00054 BISB2 #2, 12(RO) : 
50 7E A3 BO 00058 MOVW 126(R3), NUMRECS ; 

bE 50 3¢ 0005C MOVZWL NUMRECS, (SP) : 

5B D4 0005F TC : 

0088 31 00061 __ BRW 10$ : 

58 10 AE C1 00004 38 ADDL3 BLKADR, OFFSET, R6 F 

52 06 A6 YE 00069 MOV 6(R6), LUHREC q 
ABBA BF 62 B1 0006D CMPW = (LUHREC), #43962 : 
08 13 60072 BEQL = 4 : 

50 000000006 8F D0 60074 MOVL § #LBRS$_INTRNLERR, RO : 

04 00078 RET ; 

50 02 A2 C QOOO7C 4$: MOVZWL 2(LUHREC), RECLEN 3 

57 50 DO 00080 MOVL RECLEN, RECLENLFT : 

14 AE 50 BO 00083 MOVW  RECLEN, SAVE_DESC : 
51 AE 9E 00087 MOVAB SAVE _DESC+4,~R1 F 
00006 30 00088 BSBW  -GET_2 : 

7A 0 E OOBE 5$: BLBC STATUS, 9$ : 

1c AE 14 AE 7D 00091 MOV SAVE DESC, PASS_DESC ; 
56 04 =A 3 0096 M vag 4(R2T, CPYRECADR : 

58 04 CO 0009A ADDL2 #4, OFFSET : 

SA 18 AE D0 0009D MOVL  SAVE_DESC+4, DSTADR : 

57 DS OOOAl 6S: TSTL RECLENLFT : 

55 13 0A BLEQ Ss : 

8F 58 C3 000A SUBL3 OFFSET, #506, R1 : 

50 57 DO OOOA MOVL RECLENLFT, Rr6 

51 30 D1 0008 CMPL RO, RI : 

Q 15 0008 BLEQ  7$ : 

50 1 DO 0008 MOVL 1, RO : 

59 50 DO 000B8 7$ MOVL RO. CPYLEN : 
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ibe=850 LBRSGET_HISTORY 14-5 oor 1384 93; 37515 DISKSVMSMA 
6A $ 9 28 00088 MOVC3  CPYLEN, (CPYRECADR), (DSTADR) 
9 ¢ O08 SUBL2 CPYLEN, REC!ENLFT 
8 9 €0 000¢ ADDL2 CPYLEN. OFFSET 
A 59 ¢€0 000¢ ADDL2 CPYLEN. DSTADR 
000001F6 &F 38 D1 000¢ CMPL OFFSET. #502 
D0 15 OO0CF BLEG ~=««6$ 
04 AE 10 H D0 00001 MOVL § @BLKADR, VBN 
D4 0006 CLRL OOF F 
52 AE 9E 000D MOVAB CACHE_ENTRY, R2 
51 10 AE 9 9006 MOVAB BLKADR, R1 
50 A p 000E MOVL -VBN, R 
009 G OO0E4 BSBW FIND BLOCK 
08 AE DO 000E7 MOVL RO, STATUS 
50 0c AE DO OOOEB MOVL CACHE ENTRY, RO 
0c Ad 02 88 OOOEF BISB2 #2, 12(RO) 
56 10 AE 06 C1 000F3 ADDL3 #6, BLKADA CPYRECADR 
A711 000F8 BRB 6 
1C AE 9F OOOFA 8S: PUSHAB PASS_DESC 
08 BC 01 FB OOOFD CALLS #1, GACTION_ROUTINE 
25 50 €9 00101 BLBC = STATUS, 
50 04 BC DO 00104 MOVL § @CONTROL_INDEX, RO 
00006 30 00108 BSBW ‘VALIDATE ~C 
1B 50 £9 0010B 9$: BLBC —« STATUS, 11 
51 18 AE 00 00108 SAVE_DESC+4, R1 
50 14 AE 3C 0011 MOVZWL SAVE~DESC, 
00006 30 00116 SBW DEALCOC_MEM 
0D 50 £9 00119 BLBC STATUS 11$ 
FF42 5B 01 6E F10011C 10$: ACBL (SP), #1, I, 3$ 
50 000000006 8F D0 00122 MOVL rBRé _NORMAL, RO 
04 00129 11% RET 


; Routine Size: 298 bytes, Routine Base: S$CODE$ + 1136 


; 1943 2745 1 
; 1944 2746 «1 END 
; 1945 2747 0 ELUDOM ! Of module 


PSECT SUMMARY 
Name Bytes Attributes 
SCODES 4704 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


ousnanes Syabols -ccee--- Pages Processing 
File Total Loaded Percent Mapped Time 
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15 | 
LBR_GETPUT 18-Sep-1984 01:53:17 VAX=11_BLiss-32_v4.0-7 74 
vO4=000 LBRSGET_HISTORY 1eSep- 1964 12:37:40 DISKSUMSMASTERSCLBA. SRCIGETPUT .832;1 °° (20). 
; _$255SDUA2B:[SYSLIBISTARLET.L3251 9776 44 0 581 00:01.0 | 


: COMMAND QUALIFIERS 
’ BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:GETPUT/OBJ=OBJ$:GETPUT MSRC$:GETPUT/UPDATE=(ENH$: GETPUT) 
; Size: 4632 code + 72 data bytes 


3; Run Time: 01:27. 9 
: leesad Time: 02:45.7 

3: Lines/CPU Min: 1893 

3; Lexemes/CPU-Min: 23242 

; eneey Used: 256 pages 
; a 


; Compilation Complete 


DIGITAL EQUIPMENT CORPORATION 
CONFIDENTIAL AND PROPRIETARY 
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